Finding text that has backgorund shading

[Chuck Martin]

I have a large document that contains almost all tables, a document that
was automatically generated. That autmatic generation created background
shafding in all the header cells of the tables.

I want to rid the tables of the background shading. I am not able to.

When I select all the tables, go to Format > Borders and Shading, go to
the Shading tab, select No Fill, and click OK, nothing changes.

I wanted to use Search and Replace, but the Find options do not include
options for text that ha background shading.

I can select a single table or single rows and apply the No Fill option
and remove the shading, but doing this manually in this document is not
an option; there are hundreds of tables on hundreds of pages. An
Internet search led me to no clues.

Suggestions, please?

I am using Word 2003 on a WinXP Pro box with a 3+GHz processor, 1GB of
RAM, and plenty of disk space. The documetn itself is nearly 900 pages
and 38MB in size.

--
--
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

 

[Jay Freedman]

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

 

[Chuck Martin]

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