从Excel VBA关闭Word应用程序

Question

我正在宏的开头尝试关闭所有word应用程序（如果打开的话），尽管我没有打开任何文档，也无法将它们设置为对象。谢谢。

Answer 1

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

On Error Resume Next如果没有Word应用程序实例正在运行，则需要防止错误。

Option Explicit

Sub CloseWordDocuments()

    Dim objWord As Object

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

End Sub