嘿，这个需求光靠Word自带的高级查找替换确实搞不定，得借助VBA宏来实现——毕竟要给每个字母单独设颜色，手动操作太折腾人了😅

1. 打开VBA编辑器 #

• 按下 Alt + F11 快速打开Word的VBA编辑器
• 在左侧的项目资源管理器里找到你当前的文档，右键点击它 → 插入 → 模块

2. 粘贴定制化的宏代码 #

把下面的代码粘贴到新建的模块里：

Sub ReplaceWithColoredLetters()
    Dim findText As String
    Dim replaceFont As String
    Dim colorArray As Variant
    Dim i As Integer
    Dim rng As Range
    
    ' 👇 这里根据你的需求修改参数
    findText = "目标短语" ' 替换成你要查找的短语
    replaceFont = "Arial" ' 替换成你指定的字体名称
    ' 每个RGB值对应短语中一个字母的颜色，数量要和短语长度一致
    colorArray = Array(RGB(255, 0, 0), RGB(0, 255, 0), RGB(0, 0, 255), RGB(255, 255, 0))
    
    ' 开始批量查找替换
    Set rng = ActiveDocument.Content
    With rng.Find
        .Text = findText
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        
        Do While .Execute
            ' 统一设置字体
            rng.Font.Name = replaceFont
            ' 逐个给字母设置对应颜色
            For i = 1 To Len(findText)
                rng.Characters(i).Font.Color = colorArray(i - 1)
            Next i
        Loop
    End With
End Sub

3. 调整宏的参数 #

• 目标短语：把 findText = "目标短语" 里的内容换成你要替换的那个短语
• 指定字体：修改 replaceFont = "Arial" 为你需要的字体（比如“微软雅黑”“Times New Roman”）
• 字母颜色：colorArray 里的RGB值要和短语的字母数量一一对应，顺序就是短语从左到右的字母颜色。不知道RGB值的话，可以在Word字体颜色面板里选颜色，然后查看「更多颜色→自定义」里的RGB参数

4. 运行宏 #

• 回到VBA编辑器，点击工具栏上的▶️运行按钮，或者按 F5 执行
• 执行完成后，文档里所有匹配的短语都会自动变成你设置的字体，且每个字母对应不同颜色

• 运行宏前建议先备份文档，避免意外情况
• 如果短语有重复字母，宏会按位置给每个字母设置对应颜色，不会因为字母重复就用同一种颜色
• 后续要换短语或颜色的话，直接修改宏里的参数重新运行即可

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