Excel VBA中如何判断某个word文件已打开？

north00

请问高手：



在Excel VBA中已加载MS Word的引用，已知该word文件名，如何用VBA代码来判断该word文件是否已打开？有没有类似Excel文件Workbooks遍历的方法？
谢谢~~

512008404

参与一下！
Sub CheckWordFileIsOpen()
    Dim wordApp As Object ' Word.Application
    Dim wordDoc As Object ' Word.Document
   
    On Error Resume Next
    Set wordApp = GetObject(, "Word.Application")
    On Error GoTo 0
   
    If wordApp Is Nothing Then
        MsgBox "Word application is not open!"
        Exit Sub
    End If
   
    ' 这里可以循环遍历打开的 Word 文档，判断文件名是否已经打开
    For Each wordDoc In wordApp.Documents
        If wordDoc.Name = "File.docx" Then
            MsgBox "File.docx is already open!"
            Exit Sub
        End If
    Next wordDoc
   
    MsgBox "File.docx is not open."
End Sub