Dim objWord ' As Word.Application
Dim objWindow ' As Word.Window
On Error GoTo NoWordOpened
Set objWord = GetObject(, "word.application")
For Each objWindow In objWord.Windows
If objWindow.Document.FullName <> "" Then
你的代码
exit sub
End If
Next
NoWordOpened:
当然你可以把它改写为一个函数就更方便了。
Dim objWindow ' As Word.Window
On Error GoTo NoWordOpened
Set objWord = GetObject(, "word.application")
For Each objWindow In objWord.Windows
If objWindow.Document.FullName <> "" Then
你的代码
exit sub
End If
Next
NoWordOpened:
当然你可以把它改写为一个函数就更方便了。
解决方案 »
- 如何用VB计算二重积分的积分值?希望高手能帮帮我!! 解决送100分!!
- 急,在线等待,读取excel表遇到的问题,请指点
- 为什么为报错,update语句
- 1000分求VSFlexGrid Pro 注冊碼 !!!
- vb面向对象编程
- 如何用winsock控件发送和接收图片( 最好有例子)
- 请sunshine781114(小白) 接分.
- 有是高分问题:Bitblt,还有点问题。
- 求解一句SQL语句
- .......................关于 CB_SHOWDROPDOWN 这个消息.......
- 为什末我的电脑一插电源就自动开机!!!
- 请教一下:如何通过程序实现ADODC与DataGrid的连接?急!急!急!
Err.Clear
Set ob = GetObject(, "word.application")
If Err.Number = 0 Then
MsgBox "Word已经运行"
Else
MsgBox "Word没有运行"
End If
如:可以判断word是否打开了特定的*.doc文档
但较麻烦。
用createobject("word.application")建立WORD对象实例
然后用on error goto err 来判断实例是否已建立!