將自動文本顏色替換爲選中的某種顯式顏色

Question

如何編寫一個宏，該宏將使用Font.ColorIndex = wdColorAutomatic查找所有文本塊並將其更改爲wdColorWhite？

我需要它將富文本粘貼到Confluence wiki中黑色背景的面板上。此背景的默認顏色爲灰色。

Answer 1

試試這個：

Sub Test() 
     With ActiveDocument.Range.Find 
     .Text = "wdColorAutomatic" 
     .Replacement.Text = "wdColorWhite" 
     .Forward = True 
     .Wrap = wdFindContinue 
     .Format = False 
     .MatchCase = False 
     .MatchWholeWord = False 
     .MatchWildcards = False 
     .MatchSoundsLike = False 
     .MatchAllWordForms = False 
     .Execute Replace:=wdReplaceAll 
    End With 
End Sub