检查文件是否打开

Question

我正在 MS Words Rough.doc 文件中工作，我想检查 Ceemea & Latam.doc 文件是否打开。应该有两种可能的输出。

1.如果已经打开那么 Activate

2。如果没有，则打开Ceemea & Latam

使用以下代码但返回 compile error

If AlreadyOpen("C:\Documents and Settings\Administrator\Desktop\EMEA CEEMEA\CEEMEA & LATAM.doc") Then

    Windows("CEEMEA & LATAM").Activate

Else

    Documents.Open FileName:="C:\Documents and Settings\Administrator\Desktop\EMEA CEEMEA\CEEMEA & LATAM.doc"

End If

Answer 1

sub ActivateOrOpen()
    on error goto nofile
    Windows("CEEMEA & LATAM").Activate
    exit sub

    nofile:
    Documents.Open FileName:="C:\Documents and Settings\Administrator\Desktop\EMEA CEEMEA\CEEMEA & LATAM.doc"
end sub

Answer 2

试试这个功能：

Function AlreadyOpen(filePath As String) As Boolean
Dim result As Boolean
result = False
For Each aDoc In Documents
 apath = aDoc.Path + "\" + aDoc.Name
 If apath = filePath Then result = True
Next aDoc
AlreadyOpen = result
End Function

检查文件是否打开

Check If FILE is OPEN or NOT

vba

ms-word

word-2007