ワード内の色がついた文字をマクロ（VBA）で削除したい

お世話になります。

色指定で置換処理を実行するマクロを作成したいと思っています。

置換￥オプション￥書式￥色指定で空白と置換　の作業を
「マクロを記録」の状態で実行したのですが、マクロに記録されません。。。

VBAに追記する形、どのような形でもいいのでマクロで色指定も含めた置換方法を教えていただけないでしょうか？

何卒よろしくお願いします。

No.1 ベストアンサー 回答者： Wendy02 回答日時： 2009/01/28 00:02

こんばんは。

前回のご質問では解決しなかったようですね。

>「マクロを記録」の状態で実行したのですが、マクロに記録されません。。。
そのようなことはないとは思います。

以下、Word 2003 以上なら、マクロのコードとしては同じはずです。記録マクロでも可能だったような気がしますが、少し違いがあります。

Sub ReplaceFormat()
　　Dim myColor As WdColorIndex
　　myColor = wdRed　'赤 ここで選ぶ
　　With ActiveDocument.Content.Find
　　　　.ClearFormatting
　　　　.Font.Color = myColor
　　　　.Text = ""
　　　　.Replacement.Text = ""
　　　　.Forward = True
　　　　.Wrap = wdFindContinue
　　　　.Format = True
　　　　.MatchCase = False
　　　　.MatchWholeWord = False
　　　　.MatchByte = False
　　　　.MatchAllWordForms = False
　　　　.MatchSoundsLike = False
　　　　.MatchWildcards = False
　　　　.MatchFuzzy = False
　　End With
　　 Selection.Find.Execute Replace:=wdReplaceAll
End Sub

この回答へのお礼

本当に助かりました！！！

ありがとうございます！！！

お礼日時：2009/01/28 09:45