ワードで太字のところに蛍光ペンをつけるマクロ

ワード2003です。文書に太字で書いたところがいくつかあります。これにまとめて蛍光ペンをつけたいのです。手動でやるのならできました。しかし、それをマクロにできません。マクロで記録しようと思っても記録されないのです。

No.1 ベストアンサー 回答者： enunokokoro 回答日時： 2014/03/16 14:07

Wordでも、[マクロの記録]で記録されないものは多数あります。

[マクロの記録]はコマンド名などを覚えるのには便利ですが、実用的に
ならないことは多く、参考程度にしたほうが良いですね。
Wordマクロについては、こちら↓のサイトがとても参考になります。
http://ameblo.jp/gidgeerock/
蛍光ペンについても説明していますよ。
http://ameblo.jp/gidgeerock/entry-11594393670.html

記録されたものに幾つか追加したものが以下のマクロです。


Sub Macro1()
'
' 太字の範囲を、太字の解除と蛍光ペンを設定
'

' 黄色い蛍光ペンを指定
　Options.DefaultHighlightColorIndex = wdYellow

　Selection.Find.ClearFormatting
' 太字を検索
　Selection.Find.Font.Bold = True

　Selection.Find.Replacement.ClearFormatting
' 蛍光ペンを設定
　Selection.Find.Replacement.Highlight = True
' 太字を解除（太字を解除しない場合は、Withの間を削除）
　With Selection.Find.Replacement.Font
　　.Bold = False
　End With

　With Selection.Find
　　.Text = ""
　　.Replacement.Text = "^&"
　　.Forward = True
　　.Wrap = wdFindContinue
　　.Format = True
　　.MatchCase = False
　　.MatchWholeWord = False
　　.MatchByte = False
　　.CorrectHangulEndings = False
　　.HanjaPhoneticHangul = False
　　.MatchAllWordForms = False
　　.MatchSoundsLike = False
　　.MatchWildcards = False
　　.MatchFuzzy = False
　End With
　Selection.Find.Execute Replace:=wdReplaceAll
End Sub

もっとコンパクトにできますが、マクロの記録をそのまま応用するなら
上記でも理解できると思います。

この回答へのお礼

ありがとうございました。
.HanjaPhoneticHangul = False
のところでこけたので、アポストロフィで殺したらうまくいきました。

お礼日時：2014/03/16 17:01