判断word文件是否打开

判断没打开，打开不就完事了，打开这样处理即可：

Sub WordTest(byval path as string)
    Dim wrdApp As Object
    Dim wrdDoc As Object
 
    Set wrdApp = CreateObject("Word.Application")
    Set wrdDoc = wrdApp.Documents.Open(path)
    wrdApp.Visible = True
    
    Set wrdDoc = Nothing
    Set wrdApp = Nothing

End Sub