App.PrevInstance是否为防止文件重复打开的有效手段?解决办法

App.PrevInstance是否为防止文件重复打开的有效手段???
App的另一个常用属性是PrevInstance，如果当前程序被运行，那么该程序的App.PrevInstance属性为False。利用这个规律可以很好的防止一个程序被多次运行。   范例如下
Private   Sub   Form_Load()
    If   App.PrevInstance   =   True   Then    
        MsgBox&   "It   has   been   runing "        
        Unload   Me:   Exit   Sub    
    End   If
我的问题是如何将PrevInstance应用于下列单机版程序

下面程序是通过wordApp.Documents.Open   (App.Path   &   "\1.doc ")关键语句调用一次就开一个doc副本，根本不能正常运行。
关键要素是如何用PrevInstance判断word文件是否打开？？

Private   Sub   Form_Load()
Dim   WordApp   As   New   Word.Application
Dim   LocateName   As   String
LocateName   =   "PET   聚对苯二甲酸乙二醇酯 "
LocateName   =   "1   ABS的性能 "

        With   WordApp
                .Visible   =   True
                .Activate
                .Documents.Open   (App.Path   &   "\1.doc ")
                '.Selection.Find.ClearFormatting
               
        '项目名称
        Selection.Find.ClearFormatting
        With   Selection.Find
                .Text   =   LocateName
                .Replacement.Text   =   " "
                .Forward   =   True
                .Wrap   =   wdFindContinue
                .Format   =   False
                .MatchCase   =   False
                .MatchWholeWord   =   False
                .MatchByte   =   True
                .MatchWildcards   =   False
                .MatchSoundsLike   =   False
                .MatchAllWordForms   =   False
        End   With
        Selection.Find.Execute
       
End   With

End   Sub


------解决方案--------------------
可以判断 word 的线程。