word文档

Question

Private Sub Command1_Click()
  Dim objWord  As Word.Application
  Dim objWindow  As Word.Window
  On Error GoTo NoWordOpened
  Set objWord = GetObject(, "word.application")
  
  For Each objWindow In objWord.Windows
    If objWindow.Document.FullName <> "c:\temp\封面.doc" Then
      MsgBox "你已经打开了""封面.doc""这个文件了"
      Exit Sub
    End If
  Next
  Exit Sub
NoWordOpened:
  
End Sub

Answer 1

非常感谢您的答复。
我运行上述代码，不知为何还是检测不到已经打开的文档。