如何批量修改MS Word文档中特定语言文字的字体颜色

不用逐字手动调整，用以下两种方法都可以一次性完成修改：

方法一：自带查找替换法（无需写代码，新手首选） #

• 打开目标文档，按下Ctrl+H快捷键直接调出「查找和替换」面板
• 点击面板左下角的「更多」按钮，展开全部高级设置项
• 光标定位到「查找内容」输入框，勾选搜索选项区的「使用通配符」，在输入框内填入[一-龥]，该通配符可以匹配所有简体中文字符
• 光标移到「替换为」输入框，不要输入任何文字，点击面板下方的「格式」按钮，选择「字体」选项，在弹出的设置窗口里选中你想要的目标字体颜色，点击确定回到替换面板
• 点击「全部替换」，等待数秒即可完成全文档中文字的颜色修改，完成后Word会弹出提示告知总共修改的内容数量

如果文档包含繁体中文内容，把查找内容替换为[一-龥﨩-﫿]即可覆盖繁体中文字符集，避免漏改。
注意：操作前建议先备份一份原文档，避免误操作导致格式错乱

方法二：VBA宏处理法（适合超大文档/高频重复操作场景） #

如果你的文档页数特别多，查找替换运行卡顿，可以用宏脚本批量处理：

• 打开目标文档，按下Alt+F11快捷键调出VBA编辑器
• 在左侧的工程资源栏右键点击当前文档名称，依次选择「插入」-「模块」
• 在弹出的空白代码编辑区粘贴以下代码：

Sub 批量修改中文字体颜色()
    Dim charRange As Range
    ' 可自行修改下方的颜色值，wdRed为红色，wdBlue为蓝色，也可写为RGB(0,0,0)这类自定义色值
    Const TargetColor = wdRed
    Application.ScreenUpdating = False
    For Each charRange In ActiveDocument.Content.Characters
        If charRange.Text Like "[一-龥]" Then
            charRange.Font.Color = TargetColor
        End If
    Next
    Application.ScreenUpdating = True
    MsgBox "中文字体颜色修改完成"
End Sub

• 按下F5键运行脚本，等待弹出完成提示框即可，回到文档就能看到所有中文已经改成目标颜色。如果需要覆盖繁体，把代码里的匹配规则[一-龥]换成之前提到的繁体匹配字符集就行。

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