vba를 사용하여 단어의 기본 강조 표시를 어떻게 변경합니까?

Question

전체 단어로 특정 텍스트를 찾아서 강조 표시하는 하위를 작성하고 있습니다. 문제는 사용자가 노란색의 텍스트가 아닌 회색 (wdGrey25) 텍스트를 원합니다. 여기 내 예제 코드입니다 :

Public Sub HighlightStrings() 

    Dim rng As Range 
    Set rng = ActiveDocument.Range(Start:=0, End:=0) 
    With rng.Find 
     .Forward = True 
     .Wrap = wdFindStop 
     .MatchWholeWord = True 

     .Text = "Claimant's name" 
     .Replacement.Highlight = True 
     .Execute Replace:=wdReplaceAll 

     .Text = "date" 
     .Replacement.Highlight = True 
     .Execute Replace:=wdReplaceAll 

     .Text = "he/she" 
     .Replacement.Highlight = True 
     .Execute Replace:=wdReplaceAll 

     .Text = "describe incident" 
     .Replacement.Highlight = True 
     .Execute Replace:=wdReplaceAll 

     .Text = "describe condition(s)" 
     .Replacement.Highlight = True 
     .Execute Replace:=wdReplaceAll 

     .Text = "describe occupational disease" 
     .Replacement.Highlight = True 
     .Execute Replace:=wdReplaceAll 

    End With 

End Sub 

지금까지, 그것은 완벽하게 찾아 정렬을 던지고 이전 버전과 같이 오프 위치없이 강조하기 위해 노력하고는 있지만, 우리의 오래된 사용자가 볼 수 있도록 강조 색상이 너무 고통 스럽습니다. 누구든지 그 문제를 해결 했어? 이것은 당신이 찾고있는 -C§

Answer 1

사전에

덕분에 :

Options.DefaultHighlightColorIndex = wdGrey25 

당신은 당신의 코드의 시작 부분을 설정해야합니다.