Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Finding text that has backgorund shading
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 |
#2
|
|||
|
|||
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 -- Regards, Jay Freedman Microsoft Word MVP FAQ: http://word.mvps.org Chuck Martin wrote: 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. -- |
#3
|
|||
|
|||
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 |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Numbers to appear at the cursor... | New Users | |||
Mirror Text Box | Formatting Long Documents | |||
Shading part of the text in a table cell | Tables | |||
Outline | Page Layout |