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

はじめまして。

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

Sub findFont()

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

End Sub

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

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

よろしくお願いします。