将突出显示的文本更改为不同的颜色

Question

我在 Word 2007 中制作了一些简单的 .doc 文件，其中我更改了文本颜色并使用突出显示来比较一些相似的文本。 我想做的是将绿色文本或灰色突出显示的任何实例更改为各自不同的颜色。

我确信有一种简单的方法可以使用 VBA 来完成此操作，但也欢迎任何其他类型的答案。

编辑：虽然我确实很欣赏答案，但最好是允许我将 .doc 文件保留为 .docs 的答案。

Answer 1

这不是 2007 年的内容，但这个想法应该适合。 此示例将所有当前突出显示更改为新的默认突出显示 (wdBrightGreen)，并将所有绿色文本更改为红色。

Sub ChangeColor
Options.DefaultHighlightColorIndex = wdBrightGreen

    Selection.Find.ClearFormatting
    Selection.Find.Highlight = True
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Highlight = True
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = wdColorBrightGreen
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = wdColorRed
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Answer 2

您始终可以将文件另存为 HTML，并在那里替换颜色。 颜色用 表示

<span style='color:red'>...

，突出显示用 表示

<span style='background:yellow;mso-highlight:yellow'>...

如果您的文档足够简单，应该很容易操作。

编辑回答问题中的编辑：完成后，重新打开文件并将文件另存为 .doc。

Answer 3

我认为可以突出显示彩色文本的一部分，然后从“主页”选项卡上的选择文本菜单选项中选择“选择具有相似格式的文本”选项。 然后只需选择所需的文本颜色即可。
希望这有效。

Answer 4

这应该适合您的目的：

Sub RehiliteAll()

    Const YOUR_REQUIRED_COLOR_IDX As Integer = 6 'RED'
    Dim doc As Range
    Set doc = ActiveDocument.Range

    With doc.Find
        .ClearFormatting 'resets default search options'
        .Highlight = True
        .Wrap = wdFindStop

        While .Execute

            If doc.HighlightColorIndex = YOUR_REQUIRED_COLOR_IDX Then
                doc.Select
                MsgBox doc.HighlightColorIndex
                'Do stuff here'
            End If

            'doc has been reassigned to the matching'
            'range; we do this so word keeps searching'
            'forward'
            doc.Collapse wdCollapseEnd
        Wend
    End With

    Set doc = Nothing
End Sub

'I am closing comment quotes so that SO formatting'
'does not get messed up too much.'