Word批量删除红色文字

在处理大量Word文档时，有时需要快速清除所有红色字体的内容（例如批注、标记或临时信息）。本文将介绍两种实用方法：使用“查找替换”功能和运行VBA宏脚本。

方法一：使用“查找和替换”功能（推荐）

1. 打开你的Word文档。
2. 按 Ctrl + H 打开“查找和替换”对话框。
3. 点击“更多 >>”展开高级选项。
4. 将光标置于“查找内容”框中，点击下方的格式 → 字体。
5. 在“字体颜色”中选择红色（注意：若使用自定义红色，请确保颜色一致），点击“确定”。
6. “替换为”框保持空白（表示删除）。
7. 点击全部替换，即可批量删除所有红色文字。

方法二：使用VBA宏脚本（适用于复杂场景）

如果你需要频繁执行此操作，可使用以下VBA代码：

Sub DeleteRedText()
    Dim para As Paragraph
    Dim rng As Range
    
    For Each para In ActiveDocument.Paragraphs
        Set rng = para.Range
        With rng.Find
            .ClearFormatting
            .Font.Color = wdColorRed
            .Text = ""
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindStop
            .Format = True
            .MatchCase = False
            .MatchWholeWord = False
            .Execute Replace:=wdReplaceAll
        End With
    Next para
End Sub

使用步骤：

1. 按 Alt + F11 打开VBA编辑器。
2. 插入 → 模块，粘贴上述代码。
3. 关闭编辑器，返回Word，按 Alt + F8，选择 DeleteRedText 并运行。

⚠️ 注意：操作前请务必备份原始文档，以防误删重要内容。