![]() |
#2
|
|||
|
|||
![]()
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 |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
epid011 | Word Tables | 2 | 05-15-2017 05:21 PM |
![]() |
ibs | Word Tables | 1 | 11-22-2016 06:31 PM |
How to change the font color of cell values | sky474 | Excel | 7 | 03-06-2014 09:15 AM |
Change Cell Color Based On % Complete | jrfoley3 | Project | 1 | 05-30-2013 05:24 AM |
![]() |
Triscia | Word VBA | 3 | 01-30-2013 04:18 PM |