如何判断 word文件已经被打开了？---顶者有分！
如何判断 word文件已经被打开了？
我是这样写的。
Public Function WordFileOpened(strFileName As String) As Boolean
WordFileOpened = False
On Error Resume Next
Dim docAPP As Object
Dim doc As Object
Set docAPP = GetObject(, "Word.Application ")
If Err.Number <> 0 Then Exit Function
For Each doc In docAPP.Documents
Debug.Print doc.FullName
If doc.FullName = strFileName Then
WordFileOpened = True
Exit For
End If
Next doc
Set doc = Nothing
Set docAPP = Nothing
End Function
问题是：当只有一个word文件被打开时，函数正确。
当有2个或多个word文件文件被打开时，判断某个文件时，就不能正确了。
好像 docAPP.Documents 总是只有一个，为什么？？
[解决办法]
Private Sub Form_Load()
Debug.Print isOpenDOC( "d:\1.doc ")
End Sub
Public Function isOpenDOC(strpath As String) As Boolean
isOpenDOC = False
On Error GoTo err1
Open strpath For Input Lock Read As #1
Close #1
Exit Function
err1:
Close #1
isOpenDOC = True
End Function
[解决办法]
GetObject( "word.application ")
如果出错,表示,现在没有开启的Word程序.
这个要用到On Error 去捕捉.
如果开多个文件档的话,Documents.Count应该可以读到有多少个.
但有一个情况就是多个Appliction实例时(多个Word进程),就要累加App对于Documents了.
