如何配置Word的BeforeSave事件仅响应手动保存而非自动保存？

你的代码问题在于未区分用户手动保存和系统自动保存，导致自动保存触发时也执行了自定义宏。以下是修正方案：

修正后的代码 #

Private WithEvents App As Word.Application

Sub Document_Open()
    Set App = Word.Application
End Sub

Private Sub App_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
    ' 仅响应当前文档的用户手动保存操作
    If Doc Is ThisDocument And Application.UserControl Then
        ' 执行你的自定义保存宏
        Application.Run "save"
        ' 取消Word默认保存流程
        Cancel = True
    End If
End Sub

关键说明 #

• Application.UserControl 属性：操作由用户手动触发时返回True，系统自动操作（如自动保存、后台任务）时返回False，这是区分手动/自动保存的核心判断条件。
• 原代码中Call LogSet App = Word.Application是语法错误，修正为Set App = Word.Application才能正确绑定应用程序事件。
• 该方案无需禁用自动保存，只是让自定义宏在自动保存时不触发，既保留自动保存功能，又实现手动保存时替换默认操作的需求。

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