ＷＯＲＤの文字をマクロで色替えするには？

質問

ＷＯＲＤの文章で文字検索ウインドウ枠内に入力した文字全てをツールバーで指定した色に変える作業を文末まで自動的に繰り返したいのですが、このとき　FOR文をどういう式としたらよいですか？
特に文末でやめるには？
また　FOR　の変数の種類は？
１回のみの色替えのマクロ記録は成功しておりますが、文末まで自動で行いたいのです。よろしくお願いします。

回答No.1

xls88

VBEのヘルプから、Find.Foundプロパティのサンプルコードを使ってDo・・・Loopしてみました。

Sub test1()
Selection.HomeKey Unit:=wdStory
With Selection.Find
.ClearFormatting
Do
.Execute findText:="あ", Format:=True, Forward:=True
If .Found = True Then
Selection.Font.Color = wdColorRed
Else
Exit Do
End If
Loop
End With
End Sub

お礼

詳しいマクロを紹介いただきありがとうございました。