Find and Replace question

  • Thread starter Thread starter zyzzyva
  • Start date Start date
Z

zyzzyva

I use Word 2007 and tables for formatting, so when I shade several tables in
a doc is there a way to Search & Replace shading to get rid of shading
altogether?
 
Dim i As Long
With ActiveDocument
For i = 1 To .Tables.Count
.Tables(i).Shading.BackgroundPatternColor = wdColorAutomatic
Next i
End With

Please do not post the same question separately to multiple newsgroups.
--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
 
Word does not provide a way to search for shading--so you can't use Search &
Replace for this. Doug's macro can provide a way to handle it.

Alternatively, select the first table, then Ctrl+click the handle(s) of
other tables until the desired tables are selected. Then click the Shading
tool and choose No Color.
 
Back
Top