使用VBA查找并关闭Excel VBA生成PDF遗留的隐藏Word进程

嘿，这个问题我太熟悉了！调试VBA操作Word的时候，中途中断程序很容易留下一堆隐藏的Word后台进程，占资源还影响后续运行。下面给你几个靠谱的解决办法，还有预防小技巧：

这个方法会定位系统里所有的Word应用对象，不管是不是隐藏状态，然后逐个关闭文档再退出应用，相对温和，还能选择是否保存文档。

Sub KillHiddenWordProcesses()
    Dim wdApp As Object
    ' 开启错误捕获，防止找不到Word实例时报错中断循环
    On Error Resume Next
    Do
        ' 尝试获取一个Word实例
        Set wdApp = GetObject(, "Word.Application")
        If Not wdApp Is Nothing Then
            ' 先关闭所有打开的文档（可根据需求调整保存逻辑）
            Dim doc As Object
            For Each doc In wdApp.Documents
                doc.Close SaveChanges:=False ' 改为True可自动保存文档
            Next doc
            ' 退出Word应用
            wdApp.Quit
            Set wdApp = Nothing
        End If
    ' 直到找不到更多Word实例，循环终止
    Loop Until Err.Number <> 0
    ' 恢复默认错误处理
    On Error GoTo 0
End Sub

如果上面的方法遇到无响应的Word实例，或者有些实例无法通过对象获取，就可以用API直接定位并终止进程。注意这个方法是强制关闭，不会提示保存，使用前要确保没有未保存的重要文档。

' 声明需要用到的Windows API函数（64位Office请保留PtrSafe）
Declare PtrSafe Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Declare PtrSafe Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Declare PtrSafe Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Declare PtrSafe Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Sub KillWordProcessesViaAPI()
    Dim hwnd As Long
    Dim pid As Long
    Dim hProcess As Long
    
    ' Word窗口的类名固定为"OpusApp"，通过这个定位所有Word窗口
    hwnd = FindWindowEx(0&, 0&, "OpusApp", vbNullString)
    Do While hwnd <> 0
        ' 获取窗口对应的进程ID
        GetWindowThreadProcessId hwnd, pid
        ' 获取进程操作权限
        hProcess = OpenProcess(&H1F0FFF, 0, pid)
        If hProcess <> 0 Then
            ' 终止进程
            TerminateProcess hProcess, 0
            ' 释放进程句柄
            CloseHandle hProcess
        End If
        ' 查找下一个Word窗口
        hwnd = FindWindowEx(0&, hwnd, "OpusApp", vbNullString)
    Loop
End Sub

其实最好的办法是在你的PDF生成程序里加上错误捕获和清理逻辑，确保不管程序是正常结束还是中途中断，都会自动关闭Word应用。比如修改你的原代码：

Sub GeneratePDF()
    Dim wdApp As Object
    Dim wdDoc As Object
    
    ' 错误发生时自动跳转到清理代码块
    On Error GoTo Cleanup
    
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = False
    
    ' ---------- 这里写你填充Word文档、打印PDF的代码 ----------
    ' ...
    
Cleanup:
    ' 先关闭打开的文档
    If Not wdDoc Is Nothing Then
        wdDoc.Close SaveChanges:=False
        Set wdDoc = Nothing
    End If
    ' 再退出Word应用
    If Not wdApp Is Nothing Then
        wdApp.Quit
        Set wdApp = Nothing
    End If
    ' 恢复默认错误处理
    On Error GoTo 0
End Sub

内容的提问来源于stack exchange，提问作者Tolure