やりたいこと
- 塗りつぶし部分を指定して検索をかけて結果を蛍光ペンで色付けして確認。その後、Enterを押して次の塗りつぶし部分の検索をして蛍光ペンで色付けしてその都度確認していきます。
- 直前に検出されて蛍光ペンで色付けされた部分は次の検索を行うためのEnterを押した時に元の塗りつぶしの色に戻していきます。
うまく動作しなかったコード
Shading.BackgroundPatternColor = -553582746
を指定して検索したのですが、全ての部分に黄色の蛍光ペンがかかってしまいました。
VBA初心者です。ご教授のほどよろしくお願いします。
Word VBA のコード
Sub findText()
With Selection.Find
.Font.Shading.BackgroundPatternColor = -553582746
.Execute
Selection.Range.HighlightColorIndex = wdYellow
Selection.MoveRight
End With
End Sub