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
公安备案号11010502030143- 京ICP备19004658号
- 京网文〔2020〕1039-165号
- 经营性网站备案信息
- 北京互联网违法和不良信息举报中心
- 家长监护
- 网络110报警服务
- 中国互联网举报中心
- Chrome商店下载
- 账号管理规范
- 版权与免责声明
- 版权申诉
- 出版物许可证
- 营业执照
- ©1999-2025北京创新乐知网络技术有限公司
