查找黄色文本的所有实例并将字体颜色更改为红色

Question

我需要一个vba宏来搜索MS Word 2007文档中字体颜色为黄色的所有文本并将其更改为红色。打印输出中不会显示黄色。手动选择和更改将花费我几个小时。

Answer 1

继stakx的Word 97解决方案之后，这是在Word 2010中有效的方法：

1. 打开“查找和替换”对话框（例如Ctrl-H）
2. 点击“查找内容”框。
3. 格式下拉菜单，字体，选择要找到的字体颜色，确定。
4. 点击“替换为”框。
5. 格式下拉列表，字体，选择最终的颜色，确定。
6. 观察“查找内容”和“替换为”的格式：说明现在不同了。
7. 根据需要更换/替换全部/查找下一个。

您可以按如下方式确定原始颜色：

1. 点击一些原始颜色的文字
2. 打开调色板。如果既未选择“主题颜色”也未选择“标准颜色”，则可能需要单击“更多颜色”。

Answer 2

实际上有一个非编程解决方案。我在Word 97中尝试过，所以我假设Word 2007仍然允许这样：

1. 打开搜索＆amp;替换对话框。
2. 勾选显示模式搜索（或类似）的复选框。
3. 作为搜索字词，请输入(?)。
4. 选择搜索格式（黄色文字颜色）。
5. 作为替换字词，请输入\1。
6. 选择替换格式（红色文本颜色）。
7. 然后搜索并替换所有内容。

实际上可能不需要步骤2,3和5（输入搜索和替换正则表达式）。

如果你肯定需要VBA代码，你应该能够将上述步骤记录为宏，然后查看生成的代码。

Answer 3

Sub ChangeColorWithReplace()   
    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = wdColorYellow
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = wdColorRed
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

此外，这是另一种方法。它不是非常快，但它比手动操作更快：

Sub ChangeFontColorByCharacter()
    Application.ScreenUpdating = False
    Dim d As Document: Set d = ActiveDocument
    For i = 1 To d.Characters.Count
        If d.Characters(i).Font.TextColor.RGB = RGB(255, 255, 0) Then
            d.Characters(i).Font.TextColor.RGB = RGB(255, 0, 0)
            DoEvents
        End If
    Next
    Application.ScreenUpdating = True
End Sub