Space Before and After

I have a document with lots of nested bulleted lists. These lists are
created using List Bullet, List Bullet 2, etc.

I am trying to automate some formatting such that the space before the first
bullet and space after the last bullet is greater than the space between two
adjacent bullets. I can do that with code as follows:

Sub Test()
Dim oPar As Word.Paragraph
For Each oPar In ActiveDocument.Range.Paragraphs
If oPar.Style = "List Bullet 2" Then
If oPar.Previous.Style "List Bullet 2" Then oPar.SpaceBefore = 9
If oPar.Next.Style "List Bullet 2" Then
oPar.SpaceAfter = 9
Else
oPar.SpaceAfter = 3
End If
End If
Next oPar
End Sub

Is there some way to do this with Style formatting? I see in the
FormatParagraphIndents Lines and Spacing Dialog an option to "Don't add
space between paragraphs of the same sytle" but I do want to add a little
space just not as much space as before and after the bullet group.

Is there a better way?

--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.

I totally support this request. The "Don't add space between paragraphs of
the same style" is ok, but as Greg said, I would like some space after within
the same style as well as different for after the same group.
I would prefer not to have a macro as the templates I will be sending out
will be to people who may not be comfortable using such animals, ie sales
staff ;-)

Does anyone have any ideas.
Many thanks
DeanH

"Greg Maxey" wrote:

I have a document with lots of nested bulleted lists. These lists are
created using List Bullet, List Bullet 2, etc.

I am trying to automate some formatting such that the space before the first
bullet and space after the last bullet is greater than the space between two
adjacent bullets. I can do that with code as follows:

Sub Test()
Dim oPar As Word.Paragraph
For Each oPar In ActiveDocument.Range.Paragraphs
If oPar.Style = "List Bullet 2" Then
If oPar.Previous.Style "List Bullet 2" Then oPar.SpaceBefore = 9
If oPar.Next.Style "List Bullet 2" Then
oPar.SpaceAfter = 9
Else
oPar.SpaceAfter = 3
End If
End If
Next oPar
End Sub

Is there some way to do this with Style formatting? I see in the
FormatParagraphIndents Lines and Spacing Dialog an option to "Don't add
space between paragraphs of the same sytle" but I do want to add a little
space just not as much space as before and after the bullet group.

Is there a better way?

--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.

I'd like to see this, too. I've used the "Don't add space" setting, but I'm
much more likely to want, say, 3 points between list items and 6 or 12
after.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

"DeanH" wrote in message
...
I totally support this request. The "Don't add space between paragraphs of
the same style" is ok, but as Greg said, I would like some space after
within
the same style as well as different for after the same group.
I would prefer not to have a macro as the templates I will be sending out
will be to people who may not be comfortable using such animals, ie sales
staff ;-)

Does anyone have any ideas.
Many thanks
DeanH

"Greg Maxey" wrote:

I have a document with lots of nested bulleted lists. These lists are
created using List Bullet, List Bullet 2, etc.

I am trying to automate some formatting such that the space before the
first
bullet and space after the last bullet is greater than the space between
two
adjacent bullets. I can do that with code as follows:

Sub Test()
Dim oPar As Word.Paragraph
For Each oPar In ActiveDocument.Range.Paragraphs
If oPar.Style = "List Bullet 2" Then
If oPar.Previous.Style "List Bullet 2" Then oPar.SpaceBefore = 9
If oPar.Next.Style "List Bullet 2" Then
oPar.SpaceAfter = 9
Else
oPar.SpaceAfter = 3
End If
End If
Next oPar
End Sub

Is there some way to do this with Style formatting? I see in the
FormatParagraphIndents Lines and Spacing Dialog an option to "Don't
add
space between paragraphs of the same sytle" but I do want to add a
little
space just not as much space as before and after the bullet group.

Is there a better way?

--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.

Greg:
The only way I see to do it with styles, is to define a separate style for the first bulleted paragraph and the last bulleted paragraph. You cld even do it for different levels.
The same principle can be used for text in boxes: spacing before/after the box I like to have larger than spaces between paragraphs IN the box. And text in tables.....
However, before you know it you get an explosion of styles and the related complexity to manage may not be worth the gain. Also, it is not efficient if you need to change the orders of the paragraphs (bullets) or if you add an item to the list. Of course you can set the following bullet styles to the style that predominantly will follow it to regain some efficiency, but I gather it's only worth it (from an efficiency viewpoint) for large documents where you have a lot of repeat.
HTH -- Henk

Originally Posted by Suzanne S. Barnhill

I'd like to see this, too. I've used the "Don't add space" setting, but I'm
much more likely to want, say, 3 points between list items and 6 or 12
after.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

"DeanH" wrote in message
...
I totally support this request. The "Don't add space between paragraphs of
the same style" is ok, but as Greg said, I would like some space after
within
the same style as well as different for after the same group.
I would prefer not to have a macro as the templates I will be sending out
will be to people who may not be comfortable using such animals, ie sales
staff ;-)

Does anyone have any ideas.
Many thanks
DeanH

"Greg Maxey" wrote:

I have a document with lots of nested bulleted lists. These lists are
created using List Bullet, List Bullet 2, etc.

I am trying to automate some formatting such that the space before the
first
bullet and space after the last bullet is greater than the space between
two
adjacent bullets. I can do that with code as follows:

Sub Test()
Dim oPar As Word.Paragraph
For Each oPar In ActiveDocument.Range.Paragraphs
If oPar.Style = "List Bullet 2" Then
If oPar.Previous.Style "List Bullet 2" Then oPar.SpaceBefore = 9
If oPar.Next.Style "List Bullet 2" Then
oPar.SpaceAfter = 9
Else
oPar.SpaceAfter = 3
End If
End If
Next oPar
End Sub

Is there some way to do this with Style formatting? I see in the
FormatParagraphIndents Lines and Spacing Dialog an option to "Don't
add
space between paragraphs of the same sytle" but I do want to add a
little
space just not as much space as before and after the bullet group.

Is there a better way?

--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.

One trick I've used is to have a bit of additional space forced by the bullet.

Say you want a big round bullet, you can use a smaller round bullet such as Alt+0149, and give it a larger font size than the text.
That will force a space between the list paragraphs.
You'll likely have to play with the position of the bullet a bit, too (say, lower it a point or two).
If you prefer a square bullet, you can play with U+2584 ("lower half block").

The trick should also work with picture bullets, if you use a picture that is transparent or white at the top.

Klaus




"Suzanne S. Barnhill" wrote:
I'd like to see this, too. I've used the "Don't add space" setting, but I'm
much more likely to want, say, 3 points between list items and 6 or 12
after.

An interesting trick, worth remembering.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

"Klaus Linke" wrote in message
...
One trick I've used is to have a bit of additional space forced by the
bullet.

Say you want a big round bullet, you can use a smaller round bullet such as
Alt+0149, and give it a larger font size than the text.
That will force a space between the list paragraphs.
You'll likely have to play with the position of the bullet a bit, too (say,
lower it a point or two).
If you prefer a square bullet, you can play with U+2584 ("lower half
block").

The trick should also work with picture bullets, if you use a picture that
is transparent or white at the top.

Klaus




"Suzanne S. Barnhill" wrote:
I'd like to see this, too. I've used the "Don't add space" setting, but
I'm
much more likely to want, say, 3 points between list items and 6 or 12
after.

Another way would be to forget about "Don't add space between paragraphs of the same style", and achieve additional space above and below the list with a white paragraph border. Between list paragraphs, the border is automatically suppressed.
But as you said, it would be better if there'd be a built-in solution.

Klaus