如何取代字体颜色?

一篇文章的各小题目字体为粗体黑字，内容是标准字（非粗体），想通过VBA将各小题目字体为粗体黑字变成红字体，请问如何解决。

还是搜寻／取代的问题...
其实用 [编辑] >> [取代] 即可解决, 要写成宏,
顶多是把它录制起来而已 ~

Sub ReplaceColorWords()
With Selection.Find
'.ClearFormatting
'.Replacement.ClearFormatting
.Font.Bold = True
.Font.Color = wdColorBlack
.Replacement.Font.Color = wdColorRed
.Execute Format:=True, Wrap:=wdFindContinue, Replace:=wdReplaceAll
End With
End Sub



说明 --

• 录制起来的内容比这个多的多. 当你充分了解以後, 就知道
  很多参数和设定可以省略, 只留下需要的部份, 这就是精简了.
  
  
• wdColorBlack, wdColorRed 是 Word VBA 的色彩常数, 在此表示
  搜寻黑色的字, 取代为红色. 当搜寻目标的颜色一致时就很方便.
  
  
• Find.ClearFormatting 和 Find.Replacement.ClearFormatting
  多数的情形下建议不要省略, 除非你能确定执行之前没有
  设定其他搜寻／取代的项目.

 

效果似乎不好，不能更换