特定の色のマーキングだけを解除するマクロ

Wordのマクロについての質問です
複数の色でマーキングしている文書があり、
特定の色のマーキングだけを解除するマクロを
作成していますが、マーキングの色の指定の仕方がわかりません。
マーキングの色の指定はどのよう（どこ）にすれば、よいのですか。


Sub マーキングなし()
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = False

With Selection.Find
.ClearFormatting
.Highlight = True
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With

Selection.Find.Execute Replace:=wdReplaceAll
end sub

No.3 ベストアンサー 回答者： Wendy02 回答日時： 2007/01/23 23:52

こんばんは。

記録マクロに手を加えたに過ぎませんが、このようにして消えます。
なお、#1の「Find メソッド前に」という前言は撤回します。それは、

Wordの場合は、Findメソッドの設定を一旦クリアしないと、置換に失敗することが多いからです。

Sub NoHighLiging()
　Dim myColors As Variant
　Dim v As Variant
　
　myColors = Array(wdPink, wdBlue)　'ピンク,青
　
　For Each v In myColors
　　
　　Options.DefaultHighlightColorIndex = v
　　Selection.Find.ClearFormatting
　　Selection.Find.Replacement.ClearFormatting
　　Selection.Find.Replacement.Highlight = False
　　
　　With Selection.Find
　　　.ClearFormatting
　　　.Highlight = True
　　　.Text = ""
　　　.Replacement.Text = ""
　　　.Forward = True
　　　.Wrap = wdFindContinue
　　　.Format = True
　　End With
　　Selection.Find.Execute Replace:=wdReplaceAll
　Next v
End Sub

それから、私は、もう一度、Word VBAは出直しです。VBAのプログラミングをステップアップするには、Word VBAは、避けて通れません。いくつかVBAの資料も集まりましたので、改めて、自分なりにまとめてみるつもりです。

この回答へのお礼

お礼が遅くなり、申し訳ありませんでした。
いろいろとありがとうございました。

お礼日時：2007/02/10 15:30

No.2 回答者： Wendy02 回答日時： 2007/01/23 15:39

こんにちは。

>蛍光ペンで色をつけたいのではなくて、

私は、蛍光ペンの色消すことについて書いてます。
間違っているつもりはありませんが……。

置換は、蛍光ペンの設定から、色を取得するのですから、それで消えるはずです。手動でやってみれば分かるはずです。

Findメソッドに色の指定はないのですから、後は、それを、Arrayに入れて、For Each v in Array(色...) とループで、通せばよいのです。コードを全部書かなくてはならないでしょうか？

この回答への補足

Wendy02様

回答ありがとうございます。

教えていただいたにもかかわらず初心者のため
コードを見ただけでは理解できませんでした。
記述したコードも「新しいマクロの記録」で作成したものです。

>コードを全部書かなくてはならないでしょうか？

お手数でなければ、お願いします。
「それを、Arrayに入れて、For Each v in Array(色...) とループで...」、自分には無理です。

補足日時：2007/01/23 16:26

No.1 回答者： Wendy02 回答日時： 2007/01/23 14:16

こんにちは。

置換で行う場合は、Find メソッド前に、蛍光ペンの色の指定をしておけばよいと思います。

例：
'灰色25
Application.Options.DefaultHighlightColorIndex = wdGray25

この回答への補足

説明が足りなくてすいません。

蛍光ペンで色をつけたいのではなくて、
特定の色の蛍光ペンを解除したいのです。

例えていうなら、緑、赤、ピンク、黄、青の
蛍光ペンを使用している文書があり、そのうち、
ピンクと青の蛍光ペンを解除（なし)にしたいのです。

補足日時：2007/01/23 15:05