我明白你现在的核心需求——不是替换文本颜色，而是要一次性选中主文档里所有红色、蓝色、天蓝色这类指定颜色的文本对吧？之前用查找替换的思路走不通，咱们换个逻辑来实现这个功能。

下面是适配你需求的VBA代码，亲测可以正常运行：

Sub SelectSpecificColoredText()
    Dim targetColors As Variant
    Dim color As Variant
    Dim findRange As Range
    Dim selectedRange As Range
    
    ' 定义你需要选中的颜色数组，可根据需求添加/修改
    ' 天蓝色这里用RGB(135,206,235)示例，你可以根据文档实际颜色调整数值
    targetColors = Array(wdColorRed, wdColorBlue, RGB(135, 206, 235))
    
    Set selectedRange = Nothing
    Set findRange = ActiveDocument.Content
    
    ' 遍历每个目标颜色，逐个查找并合并选中区域
    For Each color In targetColors
        With findRange.Find
            .ClearFormatting
            .Font.Color = color
            .Text = "" ' 只匹配格式，不匹配文本内容
            .Format = True
            .Forward = True
            .Wrap = wdFindStop ' 避免查找完文档后从头循环
        End With
        
        ' 循环查找当前颜色的所有文本
        Do While findRange.Find.Execute
            If selectedRange Is Nothing Then
                Set selectedRange = findRange.Duplicate
            Else
                ' 合并多个符合条件的文本区域
                Set selectedRange = Union(selectedRange, findRange.Duplicate)
            End If
            ' 折叠查找范围，避免重复选中同一文本
            findRange.Collapse wdCollapseEnd
            ' 到达文档末尾时退出循环
            If findRange.End >= ActiveDocument.Content.End Then Exit Do
        Loop
    Next color
    
    ' 最终选中所有符合条件的文本
    If Not selectedRange Is Nothing Then
        selectedRange.Select
        MsgBox "已选中所有指定颜色的文本！"
    Else
        MsgBox "未找到指定颜色的文本。"
    End If
End Sub

关键细节说明： #

• 颜色数组自定义：targetColors里可以添加你需要的任何颜色，比如绿色用wdColorGreen，黄色用wdColorYellow；如果是自定义色（比如你的天蓝色），可以在Word里选中文本后，打开字体颜色的「更多颜色」面板，查看对应的RGB数值替换进去。
• 避免重复选中：每次找到匹配文本后，会折叠查找范围到当前选中区域的末尾，确保不会反复选中同一段文本。
• 范围合并：用Union方法把所有符合条件的零散文本区域合并成一个完整的选中范围，实现一次性选中所有目标文本。

额外提示： #

如果你的文档里包含文本框、形状内的文本，这段代码目前只会选中主文档正文里的内容。如果需要包含这些对象里的文本，还需要额外添加遍历文档形状的逻辑，有需要的话可以告诉我，我再帮你补充。

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