Word VBA のコードがうまく動作しない件について (追記)

はじめまして

【保存版】実務でWord VBAを使いこなすための初心者向け完全マニュアルを閲覧させていただいて基本的なことを学ばせていただきました。

わかりやすく丁寧に記述されているのでとてもうれしかったです。

複数の塗りつぶしの色がほどこされた部分をそれぞれ色ごとに検索して、蛍光ペンでハイライト表示させたくてコードを書いたのですが、うまく動作しませんでした。

Sub findFont()

With Selection.Find
.Font.Shading.BackgroundPatternColorIndex = 6
.Execute
Selection.Range.HighlightColorIndex = wdTeal
End With

End Sub

実行したいことは
BackgroundPatternColorIndexの数値を変えたマクロを作ることによって塗りつぶしの色ごとに検索して、その部分を蛍光ペンでハイライト表示させる。
Executeメソッドで検索を実行して、一回ごとに実行してそれぞれの検索結果を確認した上で次の箇所の検索を実行していく。
です。

「検索と置換」ウィンドウにおける「次を検索」ボタンを一回づつ押下して確認しながら次の部分の実行をするような感じです。
塗りつぶしの色は複数色あるのですが、Wordの塗りつぶしの「その他の色(標準)」に対応するindex番号もわからないのでindex表も教えていただければ幸いです。

よろしくお願いします。

meg_

2020/08/23 16:33

質問は編集出来ます。同じ内容の質問を複数投稿するのは止めましょう。前の質問は削除した方が良いです。

dodox86

2020/08/23 23:33

「【保存版】実務でWord VBA～完全マニュアル」と本質問は、何か直接的な関係はありますか。　本に記載の内容（質問中に提示したコード）を試したら思ったように動かなかった、と言うことでしょうか。また、コードを提示する際はマークダウン記法を用いて読みやすくするようにしてください。 https://teratail.com/help/question-tips#questionTips3-5-1 https://teratail.com/questions/238564 あたりを参考にして適切に表示するようにしましょう。

行動規範の内容に同意します

回答1件

ベストアンサー

ワードは全く分かりませんが、
少し調べてみました。

WordVBA
1Sub test()
2    Dim c
3    Dim i As Long
4    
5    For Each c In ActiveDocument.Range.Characters
6        i = wdNoHighlight
7        Select Case c.Font.Shading.BackgroundPatternColorIndex
8            Case 6
9                i = wdTeal
10            Case 10
11                i = wdDarkYellow
12        End Select
13        
14        If i > 0 Then
15            c.HighlightColorIndex = i
16        End If
17    Next
18End Sub