我尝试在宏的开头尝试关闭所有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")
If Not objWord Is Nothing Then
objWord.Quit
Set objWord = Nothing
End If
Loop Until objWord Is Nothing
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句