【VBA Word】塗りつぶしがされている文字の検索方法について

Question

WordのVBAの塗りつぶしプロパティについて質問です。

＜やりたいこと＞
10. 番号リストVBAで、灰色で塗りつぶしがされている部分を検索・Selectionを取得する）
0. 塗りつぶしがされている部分について塗りつぶしを解除してその部分の前後に、"<" ">"を入れたい

＜作ってみたけど上手く動かなかったコード＞
検索オプションとしてShading.BackgroundPatternColorIndexを選択してみたのですが、それを設定すると条件に引っかからなくなりました。

どなたか方法をご存知の方、ご教授していただくと本当に助かります。
宜しくお願いします。

Dim Rng As Range
Set Rng = ActiveDocument.Range
    With Selection.Find
    .Font.Shading.BackgroundPatternColorIndex = 16
    Do While .Execute
      Selection.Range.Shading.BackgroundPatternColorIndex = 0
      Selection.Range.InsertAfter Text:=">**"
    　Selection.Range.InsertBefore Text:="**<"
    Loop
    End With
End Sub

Answer 1

Selection.HomeKey
With Selection.Find
    .Font.Shading.BackgroundPatternColorIndex = 16
    Do While .Execute
        Selection.Range.Shading.BackgroundPatternColorIndex = 0
        Selection.Range.InsertAfter Text:=">**"
        Selection.Range.InsertBefore Text:="**<"
        Selection.MoveRight
    Loop
End With

最初からでなくていいなら「Selection.HomeKey」は削除してください。
Rngは使われていなかったのでここでは反映していません。
テキストをInsertした時にその文字列が選択されているので、
次の検索結果が返ってこなかったと思われます。
Selection.MoveRightを入れて文字列の範囲選択を解除しています。