文字高亮顯示顏色

Question

下面的vba代碼從文檔文檔中刪除所有'文字高亮顏色'，但我只想'粉紅色高亮'被刪除，而忽略其他高亮顏色。任何幫助，親愛的會員，將不勝感激。謝謝。

Sub HighlightRemoveAllPink() 

    Selection.Find.ClearFormatting 
    Selection.Find.Highlight = wdColorPink 
    Selection.Find.Replacement.ClearFormatting 
    Selection.Find.Replacement.Highlight = 0 
    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 

Answer 1

首先，Selection.Find.Highlight預計布爾值，因此：

Selection.Find.Highlight = True 

要刪除特定的顏色，我用這個代碼：

With Selection.Find 
    .Highlight = True 
    Do While (.Execute(Forward:=True) = True) = True 
    If Selection.Range.HighlightColorIndex = wdColorPink Then 
     Selection.Collapse direction:=wdCollapseEnd 
    End If 
    Loop 
End With