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

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

Wendy02 さんからの 回答

  • 2009/09/27 15:08
  • 回答No.3
Wendy02

ベストアンサー率 57% (3570/6233)

こんにちは。

>FOR文をどういう式としたらよいですか?
カウントしなければ、必要ないです。

>文字検索ウインドウ枠内に入力した文字全てをツールバーで

ツールバーで指定するという意味が良く分かってはいませんが、もしかしたら、蛍光ペンのことでしょうか。

それと、残念ながら、記録マクロで取れたと思っても、書式の色のプロパティが入らないようですので、そのマクロは有効な動きをしません。ただ、ダイアログを呼び出し、文字を入れるだけの作業なら、ショートカットでよいと思います。

'-------------------------------------------
'ThisDocument モジュール
'-------------------------------------------
'書式バーの蛍光ペンでは、黄色がデフォルトになっています。

Sub FormatReplacing()
Dim Ret As Variant
  Selection.HomeKey Unit:=wdStory
  Ret = InputBox("検索用語を入れてください。")
  If StrPtr(Ret) = 0 Or Ret = "" Then Exit Sub
  
  With ActiveDocument.Content.Find
    .ClearFormatting
    .Text = Ret
    .Wrap = wdFindContinue
    .MatchFuzzy = True
    .MatchWildcards = False
    .Font.ColorIndex = wdAuto
    With .Replacement
      .ClearFormatting
      .Text = "^&"
      .Highlight = True '蛍光ペン
      '.Font.ColorIndex = wdRed ''フォント
    End With
    .Execute Replace:=wdReplaceAll
  End With
End Sub
お礼コメント
greenhope

お礼率 74% (476/640)

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