把文档里部分字体用宏替换颜色

天津孙力

求助：
文档里字体有两种颜色黑色wdColorAutomatic和灰色wdColorGray40，
我录制宏，文件内容不做任何更改，只把黑色字体变成红色字体，保留灰色字体文字
把黑色字体wdColorAutomatic替换成红色wdColorRed，保留灰色字体wdColorGray40，


录制完代码如下：

Sub by()
'
' by Macro
' 宏在 2023/8/4 由 China 录制
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ActiveDocument.Save
End Sub

但是单独执行宏时没有反应，本人能力不行，求助各位前辈高手给指点或者给一段有效的代码。
         谢谢

shenjianrong163

1. Sub ReplaceFontColor()
   
2.     With ActiveDocument.Content.Find
   
3.         .ClearFormatting
   
4.         .Font.Color = wdColorAutomatic
   
5.         With .Replacement
   
6.             .ClearFormatting
   
7.             .Font.Color = wdColorRed
   
8.         End With
   
9.         .Execute FindText:="", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
   
10.     End With
    
11. End Sub

复制代码

天津孙力

shenjianrong163 发表于 2023-8-4 09:47

谢谢shenjianrong163，运行完美，万分感谢！！！