vb6 判断word文件是否打开

Question

这里不要vb.net的，要用vb6判断是否已经打开了word文档

Answer 1

判断指定的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:/1.doc") Then
MsgBox "该文档已被打开"
Else
MsgBox "该文档未被打开"
End If
End Sub

Answer 2

判断指定的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文档是否被打开了。本回答被提问者采纳