WordのVBAの塗りつぶしプロパティについて質問です。
<やりたいこと>
番号リストVBAで、灰色で塗りつぶしがされている部分を検索・Selectionを取得する)
塗りつぶしがされている部分について塗りつぶしを解除してその部分の前後に、"<" ">"を入れたい
<作ってみたけど上手く動かなかったコード>
検索オプションとして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