View Single Post
 
Old 05-24-2018, 02:29 PM
David Matthews David Matthews is offline Windows 7 64bit Office 2016
Novice
 
Join Date: May 2018
Posts: 6
David Matthews is on a distinguished road
Default

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
Reply With Quote