WORDの文字をマクロで色替えするには?

WORDの文章で文字検索ウインドウ枠内に入力した文字全てをツールバーで指定した色に変える作業を文末まで自動的に繰り返した...

xls88 さんからの 回答

  • 2009/09/27 08:31
  • 回答No.1
xls88

ベストアンサー率 56% (669/1189)

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
お礼コメント
greenhope

お礼率 74% (476/640)

詳しいマクロを紹介いただきありがとうございました。
投稿日時:2009/09/28 22:34
この回答にこう思った!同じようなことあった!感想や体験を書こう!
この回答にはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。
関連するQ&A
ページ先頭へ