Word AutoClose宏自定义保存弹窗及关闭控制问题咨询

直接给你修改后的可用宏代码，再拆解解决两个问题的关键逻辑：

Sub AutoClose()
    ' 判断文档是否存在未保存更改
    If ActiveDocument.Saved = False Then
        ' 弹出自定义保存确认弹窗
        Dim answer As Integer
        answer = MsgBox("是否保存更改？", vbYesNoCancel, "保存确认")
        
        Select Case answer
            Case vbYes
                ' 先更新所有字段
                ActiveDocument.Fields.Update
                ' 保存文档，确保最后保存日期、保存人等字段生效
                ActiveDocument.Save
                ' 系统会自动完成后续关闭流程
                
            Case vbNo
                ' 标记文档为已保存状态，屏蔽系统默认保存提示
                ActiveDocument.Saved = True
                ' 直接关闭，不保存更改也不更新字段
                
            Case vbCancel
                ' 标记文档为已保存状态，屏蔽系统提示
                ActiveDocument.Saved = True
                ' 直接退出宏，阻止系统执行关闭操作
                Exit Sub
        End Select
    Else
        ' 文档已保存，更新字段后再次保存
        ActiveDocument.Fields.Update
        ActiveDocument.Save
    End If
End Sub

关键逻辑拆解 #

1. 屏蔽系统默认保存提示
   不管用户选No还是Cancel，只要设置ActiveDocument.Saved = True，Word就会判定文档没有未保存更改，不会弹出自带的“是否保存”提示，彻底解决重复询问问题。

2. 阻止关闭操作
   Cancel分支里用Exit Sub直接退出AutoClose宏，同时因为已经把文档标记为“已保存”，Word不会继续执行后续的关闭流程，这比依赖窗口焦点的SendKeys "{ESC}"稳定得多，能可靠实现取消关闭的效果。

另外补充：更新字段后必须执行Save，否则最后保存日期、保存人这类依赖保存动作的字段不会更新，代码里已经把这个核心需求逻辑整合进去了。

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