If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Mass changing para shadings
Hi,
I've got a .doc in which all the paras are set to "Pattern: Clear (White)". What that means is that they have white background shading. The styles are home-brewed, meaning they each have lengthy names indicating their characteristics, such as indent, spacing, etc. If I Select All, go to Styles and remove borders (which a few paras have) and shading, it only affects the first para. I know of no way to affect all the paras at once, not be style manipulation or by Find/Replace. Is there any way to do this? Thanks, p. -- Using Office 2003 sp3 on Windows XP Home Behold, I will allure her, I will lead her into the wilderness and speak tenderly to her - Ho. 2.14. http://onfollowingchrist.wordpress.com/ |
#2
|
|||
|
|||
Mass changing para shadings
Something like:
Sub ScratchMacro() Dim oPar As Word.Paragraph For Each oPar In ActiveDocument.Paragraphs oPar.Shading.BackgroundPatternColor = wdColorBrightGreen Next End Sub Paul B wrote: Hi, I've got a .doc in which all the paras are set to "Pattern: Clear (White)". What that means is that they have white background shading. The styles are home-brewed, meaning they each have lengthy names indicating their characteristics, such as indent, spacing, etc. If I Select All, go to Styles and remove borders (which a few paras have) and shading, it only affects the first para. I know of no way to affect all the paras at once, not be style manipulation or by Find/Replace. Is there any way to do this? Thanks, p. -- Greg Maxey - Word MVP My web site http://gregmaxey.mvps.org Word MVP web site http://word.mvps.org |
#3
|
|||
|
|||
Mass changing para shadings
Gorgeous! I used wdcolorautomatic and was home free.
Thanks Greg, p. On Sun, 19 Jul 2009 20:33:40 -0400, Greg Maxey wrote: Something like: Sub ScratchMacro() Dim oPar As Word.Paragraph For Each oPar In ActiveDocument.Paragraphs oPar.Shading.BackgroundPatternColor = wdColorBrightGreen Next End Sub Paul B wrote: Hi, I've got a .doc in which all the paras are set to "Pattern: Clear (White)". What that means is that they have white background shading. The styles are home-brewed, meaning they each have lengthy names indicating their characteristics, such as indent, spacing, etc. If I Select All, go to Styles and remove borders (which a few paras have) and shading, it only affects the first para. I know of no way to affect all the paras at once, not be style manipulation or by Find/Replace. Is there any way to do this? Thanks, p. -- Using Office 2003 sp3 on Windows XP Home Behold, I will allure her, I will lead her into the wilderness and speak tenderly to her - Ho. 2.14. http://onfollowingchrist.wordpress.com/ |
#4
|
|||
|
|||
Mass changing para shadings
If the color is not part of the style, then Ctrl+A, Ctrl+Q should work.
-- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA http://word.mvps.org "Paul B" wrote in message ... Gorgeous! I used wdcolorautomatic and was home free. Thanks Greg, p. On Sun, 19 Jul 2009 20:33:40 -0400, Greg Maxey wrote: Something like: Sub ScratchMacro() Dim oPar As Word.Paragraph For Each oPar In ActiveDocument.Paragraphs oPar.Shading.BackgroundPatternColor = wdColorBrightGreen Next End Sub Paul B wrote: Hi, I've got a .doc in which all the paras are set to "Pattern: Clear (White)". What that means is that they have white background shading. The styles are home-brewed, meaning they each have lengthy names indicating their characteristics, such as indent, spacing, etc. If I Select All, go to Styles and remove borders (which a few paras have) and shading, it only affects the first para. I know of no way to affect all the paras at once, not be style manipulation or by Find/Replace. Is there any way to do this? Thanks, p. -- Using Office 2003 sp3 on Windows XP Home Behold, I will allure her, I will lead her into the wilderness and speak tenderly to her - Ho. 2.14. http://onfollowingchrist.wordpress.com/ |
Thread Tools | |
Display Modes | |
|
|