1,217
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2004-08-06
- 打赏
- 举报
Private Sub Command1_Click()
Dim i As Integer
If Documents.Count >= 1 Then
For i = 1 To Documents.Count
MsgBox Documents(i).Name & " 已经打开！"
Next
Else
MsgBox "No documents are open"
End If
End Sub
Dim i As Integer
If Documents.Count >= 1 Then
For i = 1 To Documents.Count
MsgBox Documents(i).Name & " 已经打开！"
Next
Else
MsgBox "No documents are open"
End If
End Sub
QQBible 2004-08-06
- 打赏
- 举报
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'WORD.EXE'")
For Each objProcess In colProcessList
msgbox “有”
Next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'WORD.EXE'")
For Each objProcess In colProcessList
msgbox “有”
Next
hhjjhjhj 2004-08-06
- 打赏
- 举报
on error resume next
set wdApp=getobject(,"word.application")
if err.number<>0 then
msgbox "没有运行WORD"
else
for each doc in wdApp.documents
s=s & doc.name & chr(10)
next
msgbox "已经打开了" & chr(10) & s
end if
set wdApp=getobject(,"word.application")
if err.number<>0 then
msgbox "没有运行WORD"
else
for each doc in wdApp.documents
s=s & doc.name & chr(10)
next
msgbox "已经打开了" & chr(10) & s
end if
