単語文書内の単語を検索するには

Question

単語の文書にはパーセント値が含まれています。例えばのために、今月のリターンは「1.25％である。私は、黄色の背景色で割合番号をハイライト表示します。

Answer 1

次のコードは、その後ドットが続くパターン1または2桁（S）を探しますによって%続いて1又は2桁（S）と（例えば1.2％、1.23パーセント、12.3％、または12.34パーセント）、それをハイライト：

Selection.Find.ClearFormatting 
Selection.Find.Replacement.ClearFormatting 
Selection.Find.Replacement.Highlight = True 
With Selection.Find 
    .Text = "[0-9]{1,2}.[0-9]{1,2}%" 
    .Replacement.Text = "" 
    .Forward = True 
    .Wrap = wdFindContinue 
    .Format = True 
    .MatchCase = False 
    .MatchWholeWord = False 
    .MatchAllWordForms = False 
    .MatchSoundsLike = False 
    .MatchWildcards = True 
End With 
Selection.Find.Execute Replace:=wdReplaceAll 

この1つはパターン1探しまたは2桁に続いてパーセントと（例えば1％、12％）、それをハイライト：あなたも番号Iの前に負の符号を強調したい場合は ：

Selection.Find.ClearFormatting 
Selection.Find.Replacement.ClearFormatting 
Selection.Find.Replacement.Highlight = True 
With Selection.Find 
    .Text = "[0-9]{1,2}%" 
    .Replacement.Text = "" 
    .Forward = True 
    .Wrap = wdFindContinue 
    .Format = True 
    .MatchCase = False 
    .MatchWholeWord = False 
    .MatchAllWordForms = False 
    .MatchSoundsLike = False 
    .MatchWildcards = True 
End With 
Selection.Find.Execute Replace:=wdReplaceAll 

・ホープこれはあなたの必要性

EDITをカバー

Public MyPattern As String 

Sub MainSub() 

    MyPattern = "[0-9]{1,2}.[0-9]{1,2}%" 
    HighlightPattern 

    MyPattern = "[0-9]{1,2}%" 
    HighlightPattern 

    MyPattern = "-[0-9]{1,2}.[0-9]{1,2}%" 
    HighlightPattern 

    MyPattern = "-[0-9]{1,2}%" 
    HighlightPattern 

End Sub 

Sub HighlightPattern() 

Selection.Find.ClearFormatting 
Selection.Find.Replacement.ClearFormatting 
Selection.Find.Replacement.Highlight = True 
With Selection.Find 
    .Text = MyPattern 
    .Replacement.Text = "" 
    .Forward = True 
    .Wrap = wdFindContinue 
    .Format = True 
    .MatchCase = False 
    .MatchWholeWord = False 
    .MatchAllWordForms = False 
    .MatchSoundsLike = False 
    .MatchWildcards = True 
End With 
Selection.Find.Execute Replace:=wdReplaceAll 

End Sub