wordのマクロについて質問です。

WordマクロじゃなくてExcelマクロで作りました。
vbaでwordオブジェクトの参照設定をしてください。方法はこちら
http://members.at.infoseek.co.jp/kenchan_h/index21.html

>|vb|
Sub Macro()
Dim wdObj As New Word.Application
Dim wdDoc As Word.Document
Dim filepath As String
Dim i As Long

'ワードファイルのパスを指定
filepath = "C:\Documents and Settings\hogehoge\デスクトップ\test.doc"

With wdObj
.Visible = True
.Documents.Open filepath

Set wdDoc = .ActiveDocument

i = 1
While Worksheets("Sheet1").Cells(i, 1).Value <> ""
With .Selection
.Find.Text = Worksheets("Sheet1").Cells(i, 1).Value
.Find.Forward = True
'色を指定
.Find.Replacement.Font.ColorIndex = wdRed
.Find.Execute , , , , , , , , , , wdReplaceAll
End With
i = i + 1
Wend
End With

wdDoc.Close SaveChanges:=True

wdObj.Quit

Set wdObj = Nothing
Set wdDoc = Nothing
End Sub
||<

ここではSheet1のＡ列に検索文字を入れて実行すると文字を赤にします。
Ｂ列に文字色を入れて文字ごとに色を変えるなどの応用もできますよ。

なるほど、excelで組んだほうがすっきりしますね。
何とかwordで組んでみたのですが、回りくどくなってしまいました。
これを参考に次は組みなおしてみようと思います！ありがとうございます！