MacOS下VBA代码调用Word.Quit方法无法关闭Word进程问题

• 场景：用Excel VBA循环遍历Word文件提取信息，要求每次循环完成后关闭文件并退出Word应用，再进入下一次循环。
• 异常：能正常关闭Word文件，但Word进程始终在后台运行（Mac Dock中Word图标下方显示小点），导致下一次循环打开文件时触发自动化错误。
• 测试代码（运行无报错，但Word仍留后台）：

Sub CloseWord()
    Dim WordApp as Object

    Set WordApp = CreateObject("Word.Application")
    DoEvents
    WordApp.Visible = True
    WordApp.Activate
    
    WordApp.Documents.Open 'Word file（此处需补充文件路径）
    
    WordApp.Documents.Close
                                    
    WordApp.Quit
    
    Set WordApp = Nothing
End Sub

• 奇怪的循环现象：首次运行无错误但Word留后台；手动关闭Word后重运行代码触发自动化错误，且Word仍在后台；再次手动关闭Word后，第三次运行代码无错误但Word依旧留后台，重复数十次均遵循此规律。

解决方案 #

1. 显式管理所有Word对象，避免隐式引用 #

Word进程残留的核心原因通常是存在未释放的隐式对象引用（比如Documents、Selection等），即使执行了Quit和Set...=Nothing，这些引用仍会让进程驻留。修改代码为：

Sub CloseWordProperly()
    Dim WordApp As Object
    Dim WordDoc As Object ' 显式声明文档对象，杜绝隐式引用
    
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    
    ' 打开文档时显式赋值给文档对象
    Set WordDoc = WordApp.Documents.Open("你的Word文件完整路径")
    
    ' 【此处插入你的数据提取逻辑】
    
    ' 先关闭并释放文档对象
    WordDoc.Close SaveChanges:=False ' 根据需求设置是否保存
    Set WordDoc = Nothing
    
    ' 退出Word并释放应用对象
    WordApp.Quit
    Set WordApp = Nothing
End Sub

2. 强制结束残留的Word进程（应急方案） #

如果优化对象管理后仍有进程残留，可以在代码末尾添加强制结束进程的逻辑（注意：此操作会关闭所有正在运行的Word进程，需确保无未保存的文档）：

' 在Set WordApp = Nothing之后添加以下代码
Dim objWMIService As Object
Dim colProcesses As Object
Dim objProcess As Object

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name='WINWORD.EXE'")

For Each objProcess In colProcesses
    objProcess.Terminate
Next

' 释放进程管理对象
Set objProcess = Nothing
Set colProcesses = Nothing
Set objWMIService = Nothing

3. Mac系统专属优化 #

若使用Mac设备，需额外注意：

• 移除WordApp.Activate调用：激活操作会让Mac系统保留应用的前台引用，导致无法彻底退出
• 避免使用WordApp.Selection等交互类对象：这类对象在Mac环境下更容易产生未释放的引用

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