从 Excel VBA 关闭 Word 应用程序

我试图在宏开始时关闭所有打开的 Word 应用程序实例，尽管我不知道哪些文档已打开，并且无法将它们设置为对象。

这将关闭所有正在运行的 Word 文档。

你需要On Error Resume Next以防止在没有运行 Word 应用程序实例时出现错误。

Option Explicit

Sub CloseWordDocuments()

    Dim objWord As Object
    
    Do
        On Error Resume Next
        Set objWord = GetObject(, "Word.Application")
        On Error Go To 0
        If Not objWord Is Nothing Then
            objWord.Quit
            Set objWord = Nothing
        End If
    Loop Until objWord Is Nothing

End Sub

Edit

下面更正一下，因为上面的循环有一个缺陷，即它会在第一个 Word 实例关闭后退出......

Option Explicit

Sub CloseWordDocuments()

    Dim objWord As Object
    Dim blnHaveWorkObj As Boolean

    ' assume a Word object is there to be quit
    blnHaveWorkObj = True
    
    ' loop until no Word object available
    Do
        On Error Resume Next
        Set objWord = GetObject(, "Word.Application")
        If objWord Is Nothing Then
            ' quit loop
            blnHaveWorkObj = False
        Else
            ' quit Word
            objWord.Quit
            ' clean up
            Set objWord = Nothing
        End If
    Loop Until Not blnHaveWorkObj

End Sub