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ベストアンサー
- 回答日時:
こんばんは。
記録マクロに手を加えたに過ぎませんが、このようにして消えます。
なお、#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の資料も集まりましたので、改めて、自分なりにまとめてみるつもりです。
No.2
- 回答日時:
こんにちは。
>蛍光ペンで色をつけたいのではなくて、
私は、蛍光ペンの色消すことについて書いてます。
間違っているつもりはありませんが……。
置換は、蛍光ペンの設定から、色を取得するのですから、それで消えるはずです。手動でやってみれば分かるはずです。
Findメソッドに色の指定はないのですから、後は、それを、Arrayに入れて、For Each v in Array(色...) とループで、通せばよいのです。コードを全部書かなくてはならないでしょうか?
この回答への補足
Wendy02様
回答ありがとうございます。
教えていただいたにもかかわらず初心者のため
コードを見ただけでは理解できませんでした。
記述したコードも「新しいマクロの記録」で作成したものです。
>コードを全部書かなくてはならないでしょうか?
お手数でなければ、お願いします。
「それを、Arrayに入れて、For Each v in Array(色...) とループで...」、自分には無理です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) Wordマクロで指定したフォルダ名に保存する方法について 8 2022/12/13 11:35
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Visual Basic(VBA) 複数セルに〇印をつけるマクロ 4 2022/09/07 05:33
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) VBA初心者です 検索した数字の行に色をつける 5 2023/02/13 14:22
- Visual Basic(VBA) ローマ字、ハイフン付きの並び替え ローマ字抽出方法 Excelマクロ 4 2022/04/01 14:10
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
中学生です。 チ○コを小さくす...
-
料、代、費の使い分けについて
-
自分で処女膜を破ってしまいま...
-
バイトの研修は何分前に行けば...
-
エクセルの折れ線グラフの折れ...
-
白の壁紙に赤のポスカで落書き...
-
コンビニでエアダスターは、売...
-
お店で見かける伝票を刺す道具...
-
大事な書類がコーヒーで…
-
電卓は持参するもの?会社が買...
-
修正ペン・修正テープが利用で...
-
DVDのレーベル面に油性マジ...
-
ナイロンバッグにボールペンで...
-
生保レディ辞めたいのですが引...
-
机についた朱肉を取る方法を教...
-
60代以上の方は仕事でパソコン...
-
接尾助数詞、点と個の違いは何...
-
胸ポケットがない服で、筆記具...
-
学術論文と研究ノートの違い
-
コピーに写らないペン
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
中学生です。 チ○コを小さくす...
-
自分で処女膜を破ってしまいま...
-
料、代、費の使い分けについて
-
バイトの研修は何分前に行けば...
-
エクセルの折れ線グラフの折れ...
-
コンビニでエアダスターは、売...
-
マクロ F8が効かない
-
なぜなら~で始まった文章の終...
-
ワイシャツについたボールペン...
-
鉛筆の囲いは消すべきですか?
-
ノートPCで常に「シュー」と言...
-
ノートの余分なページをキレイ...
-
パワーポイント2016で蛍光...
-
複写で写った文字をキレイに消...
-
どろぼうけずりの語源
-
修正ペン・修正テープが利用で...
-
鉛筆の汚れについて
-
学術論文と研究ノートの違い
-
ふたが開かない・・・
-
建退共の証紙について
おすすめ情報