判断指定的WORD文档是否被打开的函数代码如下：

Function WordDocIsOpen(ByVal strDocName As String) As Boolean Dim objWordApp As Object Dim objWordDoc As Object On Error Resume Next '此句不能少 strDocName = UCase(strDocName) Set objWordApp = GetObject(,"Word.Application") For Each objWordDoc In objWordApp.Documents If UCase(objWordDoc.FullName) = strDocName Then WordDocIsOpen = True Exit For End If Next Set objWordDoc = Nothing Set objWordApp = Nothing End Function

调用代码：

Private Sub main() If WordDocIsOpen("e:/2.doc") Then Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> "该文档已被打开" Else Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> "该文档未被打开" End If End Sub

读者只要稍加留意，可能早已注意到，其实只要把以前代码中的Word.Application改为Excel.Application，就可以判断指定的Excel文档是否被打开了。