如何使用Excel VBA关闭手动打开的Word文档

Question

在运行excel vba代码之前，我已手动打开Word文档，是否可以关闭通过Excel VBA打开的特定Word文档

Answer 1

假设你没有在Word应用程序上有一个钩子，这样的事情就可以解决这个问题：

Set wordApp = GetObject(, "Word.Application")

    For Each wdDoc In wordApp.Documents
        If wdDoc.Name = "close_me.docx" Then '// rename to your doc
            wdDoc.Close SaveChange:=False '// change to true if required
            DoEvents
            Exit For
        End If
    Next