Word一键删除红色字体

在日常办公中，你是否遇到过需要批量删除 Word 文档中所有红色字体的情况？无论是审阅标记、错误提示还是临时注释，手动逐字删除效率极低。本文将介绍几种高效方法，帮助你快速清除所有红色文字。

方法一：使用“查找和替换”功能

这是最简单且无需编程的方法，适用于大多数用户：

1. 打开你的 Word 文档。
2. 按下 Ctrl + H 打开“查找和替换”对话框。
3. 点击“更多 >>”展开高级选项。
4. 将光标放在“查找内容”框中，点击“格式” → “字体”。
5. 在“字体颜色”中选择“红色”，点击“确定”。
6. “替换为”框留空（表示删除匹配内容）。
7. 点击“全部替换”即可一键删除所有红色字体。

方法二：使用 VBA 宏（适合批量处理）

如果你经常需要执行此类操作，可以使用以下 VBA 宏代码自动删除红色文字：

Sub DeleteRedText()
    Dim rng As Range
    Set rng = ActiveDocument.Content
    With rng.Find
        .ClearFormatting
        .Font.Color = wdColorRed
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .Execute Replace:=wdReplaceAll
    End With
End Sub

使用步骤：

• 按 Alt + F11 打开 VBA 编辑器。
• 插入新模块，粘贴上述代码。
• 关闭编辑器，返回 Word，按 Alt + F8 运行宏 DeleteRedText。

注意事项

• 确保红色字体使用的是标准“红色”（RGB 255,0,0），否则可能无法识别。
• 操作前建议先备份文档，防止误删重要内容。
• 如果文档使用了“突出显示”而非字体颜色，请改用“突出显示”筛选方式。