### やりたいこと

  1. 塗りつぶし部分を指定して検索をかけて結果を蛍光ペンで色付けして確認。その後、Enterを押して次の塗りつぶし部分の検索をして蛍光ペンで色付けしてその都度確認していきます。
  2. 直前に検出されて蛍光ペンで色付けされた部分は次の検索を行うための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
    
```
CC BY-SA 4.0
2020-08-30T11:08:42.243
69995
2020-08-30T13:05:37.737
2020-08-30T13:05:37.737
32986
41698
question
vba
WordのVBAのコードについての質問です。