Jay Freedman wrote:
Hi Chuck,

Install this macro (see http://www.gmayor.com/installing_macro.htm if
necessary) and run it while a *copy* of the original file is open:

Sub TableNoShades()
Dim oTbl As Table
For Each oTbl In ActiveDocument.Tables
With oTbl.Shading
.Texture = wdTextureNone
.BackgroundPatternColor = wdColorAutomatic
.ForegroundPatternColor = wdColorAutomatic
End With
Next oTbl
End Sub


Thanks Jay!

--
--
Chuck Martin
User Assistance & Experience Engineer
twriter "at" sonic "dot" net www.writeforyou.com

"I see in your eyes the same fear that would take the heart of me.
The day may come when the courage of Men fail, when we forsake our
friends and break all bonds of fellowship. But it is not this day!
This day, we fight!"
- Aragorn

"All you have to decide is what to do with the time that is given you."
- Gandalf