This is all I've found so far. It does not work for me.
Sub test()
Dim rg As Range
Set rg = ActiveDocument.Range
With rg.Find
.Format = True
.Text = ""
.Font.Shading.BackgroundPatternColor = RGB(225, 225, 153)
.Replacement.Text = ""
While .Execute
rg.Font.Shading.BackgroundPatternColor = RGB(225, 225, 225)
rg.Collapse wdCollapseEnd
Wend
End With
End Sub
|