VBA实现Word关闭异常：关闭UserForm1后进程仍驻留求助

问题根源 #

你的代码存在三个关键问题：

• UserForm的QueryClose事件参数错误，多了额外的appWord As Object参数，导致事件无法正常触发
• CloseMode判断逻辑错误，手动点击窗体关闭按钮（叉号）对应的是vbFormControlMenu，而非vbFormCode
• 退出时未正确调用Word应用程序的退出方法，导致进程驻留

修正后的完整代码 #

1. 模块中的AutoOpen过程

Sub AutoOpen()
    ' 隐藏Word主窗口
    Application.Visible = False
    ' 显示无模式窗体
    UserForm1.Show vbModeless
End Sub

（注：原代码里的UserForm1.Hide是多余的，窗体初始状态就是隐藏的，直接Show即可）

2. UserForm1的QueryClose事件过程

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ' 处理两种关闭场景：手动点叉号、代码触发关闭
    If CloseMode = vbFormControlMenu Or CloseMode = vbFormCode Then
        ' 关闭当前文档，不保存更改
        ThisDocument.Close SaveChanges:=wdDoNotSaveChanges
        ' 退出Word应用程序
        Application.Quit
    End If
End Sub

关键说明 #

• 移除了QueryClose事件中多余的参数，确保事件能正常响应
• 同时判断vbFormControlMenu（手动关闭）和vbFormCode（代码关闭）两种场景，覆盖所有关闭情况
• 直接使用Application.Quit而非自定义的appWord对象，确保正确终止Word进程

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