如何在VB中判断某一个Word.Application是否关闭了呢

Question

我调用Word.Application 打开了一个word文档
需要判断这个Word.Application是否结束if 没有结束 then
 怎么实现无限等待
 直到Word.Application结束
endif
有两个问题：
1，怎么判断 Word.Application 是否结束
2, 怎么无限等待,直到Word.Application结束
请问怎么解决啊？

Answer 1

on error resume nextset p=getobject("Word.Application")
if p is nothing then msgbox "It's over"

Answer 2

Private Sub Form_Load()
    Dim objWMIService As Object
    Dim colProcessList
    Dim objProcess As Object
    On Error Resume Next
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set colProcessList = objWMIService.ExecQuery("select * FROM Win32_Process")
    Dim mProcID As Long
    For Each objProcess In colProcessList
        If UCase(Trim(objProcess.Name)) = "WORD.EXE" Then
            MsgBox "Word在运行中！"
        End If
    Next
End Sub

Answer 3

Set oWord = New Word.Application
            With oWord
                 .WindowState = wdWindowStateMaximize
                 .Visible = True
                  Set oDoc = .Documents.Open(strPath)
            End With
这是一个调用
请问怎么传回 这个的 传回 Process Id