ワード2007のマクロで

質問

ワードのマクロで特定の文字を全検索し、一括でハイライト(文字の背景色)を付ける方法は
どのようにすればよいのでしょうか。
この方↓が言っていることと同じです。

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1450486009

回答No.1

Wendy02 · ベストアンサー

Office 2007 で試してはいませんが、試してみてください。

Sub FormatReplacing()
　'色を変える書式を使った置換
　Const sREP As String = "マクロ" '検索文字

　Options.DefaultHighlightColorIndex = wdBrightGreen
　Selection.HomeKey Unit:=wdStory
　Selection.Find.ClearFormatting
　Selection.Find.Replacement.ClearFormatting
　Selection.Find.Replacement.Highlight = True
　With Selection.Find
　　.Text = sREP
　　.Replacement.Text = sREP
　　.Forward = True
　　.Wrap = wdFindContinue
　　.Format = True
　　.MatchCase = False
　　.MatchWholeWord = False
　　.MatchByte = False
　　.MatchAllWordForms = False
　　.MatchSoundsLike = False
　　.MatchWildcards = False
　　.MatchFuzzy = False
　End With
　Selection.Find.Execute Replace:=wdReplaceAll
　Options.DefaultHighlightColorIndex = wdNoHighlight
End Sub