Find and Replace question

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

"zyzzyva" wrote in message
...
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?

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.


--
Herb Tyson MS MVP
Author of the Word 2007 Bible
Blog: http://word2007bible.herbtyson.com
Web: http://www.herbtyson.com


"zyzzyva" wrote in message
...
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?