5

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

我敢肯定有一种简单的方法可以用 VBA 做到这一点，但也欢迎任何其他类型的答案。

编辑：虽然我很欣赏答案，但首选允许我将 .doc 文件保留为 .docs 的答案。

4

4 回答 4

3

这不是从 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
于 2008-10-23T22:10:51.020 回答
1

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

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

重点是

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

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

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

于 2008-10-23T15:57:18.887 回答
1

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

于 2012-02-15T01:19:51.663 回答
0

这应该适用于您的目的：

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.'
于 2009-02-27T16:20:41.733 回答