如何编写VBA宏取消Word中「启用现代注释」的勾选？

可以通过VBA宏实现批量关闭Word文档的「启用现代注释」功能，以下是具体实现方案：

单文档处理代码 #

如果仅需处理单个文档，打开目标文档后按下Alt+F11打开VBA编辑器，插入模块并运行以下代码：

Sub DisableModernComments()
    ' 取消当前文档的「启用现代注释」勾选
    Options.UseModernComments = False
    ' 保存文档更改
    ActiveDocument.Save
    MsgBox "现代注释已关闭并保存", vbInformation
End Sub

批量处理文件夹内所有Word文档 #

若要批量处理指定文件夹下的.docx/.doc格式文档，使用以下宏：

Sub BatchDisableModernComments()
    Dim folderPath As String
    Dim fileName As String
    Dim doc As Document
    
    ' 弹出文件夹选择对话框
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "选择要处理的文档所在文件夹"
        If .Show = -1 Then
            folderPath = .SelectedItems(1) & "\"
        Else
            Exit Sub
        End If
    End With
    
    ' 遍历处理所有.docx文档
    fileName = Dir(folderPath & "*.docx")
    Do While fileName <> ""
        Set doc = Documents.Open(folderPath & fileName)
        Options.UseModernComments = False
        doc.Save
        doc.Close
        fileName = Dir
    Loop
    
    ' 遍历处理所有.doc旧格式文档（可选）
    fileName = Dir(folderPath & "*.doc")
    Do While fileName <> ""
        Set doc = Documents.Open(folderPath & fileName)
        Options.UseModernComments = False
        doc.Save
        doc.Close
        fileName = Dir
    Loop
    
    MsgBox "批量处理完成", vbInformation
End Sub

注意事项 #

• 运行宏前务必备份所有目标文档，避免意外操作导致数据丢失。
• 带密码保护的文档无法被宏自动打开，需提前移除密码或手动处理。
• 若Word弹出宏安全提示，可在「文件>选项>信任中心>信任中心设置>宏设置」中临时选择「启用所有宏」（仅处理可信文档时建议使用）。

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