曾经记得有人问过要关掉指定 浏览器的

Private Sub Command1_Click()
    CloseIE
End Sub
'只要应用shdocvw.dll
Private Sub CloseIE(Optional InIETitle As String = "")
    Dim IEList As New ShellWindows
    Dim IEFile As InternetExplorer
    On Error Resume Next
    '遍历当前地浏览器窗口
    For Each IEFile In IEList
        If InStr(IEFile.Document.Title, InIETitle) > 0 Then
            IEFile.Quit
        End If
        If InIETitle = "" Then
            IEFile.Quit
        End If
    Next
End Sub

这个 我知道! 是ie, 而且你的这个关闭word也有问题的!

word 一个进程可以打开多个文件,所以关闭word不能用关闭进程的方法！