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

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

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

Answer 3

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

1. 打开" 搜索和替换"对话框.
2. 勾选" 模式搜索"(或类似)的复选框.
3. 作为搜索词,输入(?).
4. 选择搜索格式(黄色文本颜色).
5. 作为替换术语,请输入\1.
6. 选择替换的格式(红色文本颜色).
7. 然后搜索并替换所有内容.

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

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