[Paul B[_5_]]

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/

[Greg Maxey[_2_]]

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

[Paul B[_5_]]

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/

[Suzanne S. Barnhill]

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/