嘿，我来帮你搞定这个问题！首先得明确：单纯调用oDoc.Deactivate其实只是让Word窗口失去焦点，并不会直接关闭后台的WINWORD.EXE进程。要彻底结束它，得按下面的步骤来操作：

步骤1：获取Word应用程序实例 #

首先，我们可以通过OLE对象的Object属性拿到对应的Word文档，再通过文档获取Word应用程序对象：

Dim oWordApp As Object
Set oWordApp = oDoc.Object.Application

步骤2：关闭Word文档（处理保存提示） #

在退出Word之前，先关闭嵌入的文档，避免弹出保存对话框：

' 关闭文档，不保存更改（wdDoNotSaveChanges对应常量0）
oDoc.Object.Close SaveChanges:=0

如果需要保存修改，把参数改成1（对应wdSaveChanges）；如果想让用户决定保存，改成2（对应wdPromptToSaveChanges）。

步骤3：退出Word应用并释放对象 #

接下来退出Word应用，然后依次释放所有对象引用，让系统彻底回收进程：

' 退出Word应用
oWordApp.Quit

' 释放对象引用，避免进程残留
Set oDoc = Nothing
Set oWordApp = Nothing

完整示例代码 #

把这些步骤整合到你的原有流程里，完整代码如下：

Dim oDoc As OLEObject
Dim oWordApp As Object

' 激活Word OLE对象（你的原有代码）
Set oDoc = WS.OLEObjects("WordDoc")
oDoc.Activate

' ... 这里是你对Word文档的操作代码 ...

' 开始关闭并结束进程的操作
On Error Resume Next ' 防止对象已被关闭的异常
Set oWordApp = oDoc.Object.Application
oDoc.Object.Close SaveChanges:=0 ' 关闭文档，不保存
oWordApp.Quit ' 退出Word应用

' 释放所有对象
Set oDoc = Nothing
Set oWordApp = Nothing
On Error GoTo 0 ' 恢复默认错误处理

关键注意点 #

• oDoc.Deactivate仅让Word窗口失去焦点回到Excel，后台Word进程依然会运行，必须用oWordApp.Quit才能终止进程。
• 一定要释放对象引用（设置为Nothing），否则可能导致进程残留。
• 如果遇到顽固的残留进程，优先用Word对象模型的方法处理，这比直接强制杀进程更安全稳定。

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