VB判断指定的WORD文档是否已被打开

    判断指定的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 MsgBox "该文档已被打开" Else MsgBox "该文档未被打开" End If End Sub

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