マクロを使い、特定の文字を青く太字で置換したい

質問

Wordで大量の文字を青い太字にしたいのですが、マクロの組み方が分かりません。

置換したい文字（例）：計算力　実力講座　カレンダー
↑この文字を、青い太字にしたいです。
（置換したい文字が、10,000程度あります）

WinXP Word2007を使っています
非常に困っております。
何卒、よろしくお願いします。

回答No.1

n-jun

Word2002で試しました。

テキストファイル（abc.txt :Wordファイルと同じフォルダ）に、
該当する単語を一列に書き込んでおく。
（例）：
計算力
実力講座
カレンダー

Sub　try()
　Dim　myRange　As　Range
　Dim　T_File　As　String
　Dim　T_No　As　Long
　Dim　tmp　As　String

　T_File　=　ThisDocument.Path　&　"\abc.txt"　'abcというテキストファイル
　T_No　=　FreeFile

　Open　T_File　For　Input　As　#T_No

　Do　Until　EOF(T_No)
　　　　Set　myRange　=　ActiveDocument.Content
　　　　Input　#T_No,　tmp

　　　　Do　While　(myRange.Find.Execute(FindText:=tmp,　Forward:=True))　=　True
　　　　　　　If　myRange.Find.Found　=　True　Then
　　　　　　　　　　myRange.Font.Color　=　wdColorBlue
　　　　　　　　　　myRange.Font.Bold　=　True
　　　　　　　End　If
　　　　Loop
　Loop
　Close　#T_No
　Set　myRange　=　Nothing
End　Sub

Word2007は持っていないし、今日初めてWordVBA作ったのでで的はずれかも知れませんが、
その場合はごめんなさい。

お礼

ありがとうございました。
おかげさまでうまく、マクロを走らせることが出来ました。
今後、非常に助かります。