How to Close the Manually opened word document using Excel VBA

Question

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

Answer 1

Assuming you don't already have a hook on the Word app, something like this should do the trick:

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