我调用Word.Application 打开了一个word文档
需要判断这个Word.Application是否结束if 没有结束 then
怎么实现无限等待
直到Word.Application结束
endif
有两个问题:
1,怎么判断 Word.Application 是否结束
2, 怎么无限等待,直到Word.Application结束
请问怎么解决啊?
需要判断这个Word.Application是否结束if 没有结束 then
怎么实现无限等待
直到Word.Application结束
endif
有两个问题:
1,怎么判断 Word.Application 是否结束
2, 怎么无限等待,直到Word.Application结束
请问怎么解决啊?
if p is nothing then msgbox "It's over"
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
With oWord
.WindowState = wdWindowStateMaximize
.Visible = True
Set oDoc = .Documents.Open(strPath)
End With
这是一个调用
请问怎么传回 这个的 传回 Process Id