VB 检测是否有打开的word文档

Question

用visual basic 6.0 检测电脑上有没有打开着的WORD文档
有的话就将他们关闭。
希望能用一些简单一点的方法！

Answer 1

Private Sub Command1_Click()
Dim objWMIService As Object
Dim colProcesslist As Object
Dim objProcess As Object
Set objWMIService = CreateObject("winmgmts:{impersonationLevel=Impersonate}!root\cimv2")
Set colProcesslist = objWMIService.ExecQuery("select * from win32_process where name='WINWORD.EXE'")
For Each objProcess In colProcesslist
objProcess.Terminate
NextEnd Sub

Answer 2

http://topic.csdn.net/u/20090412/21/63fac2bf-1dc5-4742-a296-17b0597a4905.html

Answer 3

        Dim WordObj As Word.Application
        Set WordObj = Word.Application
        If WordObj.Documents.Count > 0 Then
            MsgBox "存在打开的文档！"
        Else
            MsgBox "不存在打开的文档！"
        End If
我用这种判断方法的时候，有文档打开时是正错的，但没有文档打开时，运行起来就有错误了。怎么回事？

Answer 4

你要在前面加一个is nothing的判断

Answer 5

怎么加啊？
出错的时候是指着Set WordObj = Word.Application 这句话的