Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.word.formatting.longdocs
Greg Maxey Greg Maxey is offline
external usenet poster
 
Posts: 285
Default 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.


 
Thread Tools
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
FULLNAME merge field: how do I get it to just show the first name, i.e. everything before the space and nothing after the space. Sean Steele Mailmerge 4 October 3rd 07 07:22 PM
When click enter, I only get single space, want double space Michael_Randall Page Layout 2 July 5th 07 12:50 PM
too much space between lines in a list (single space for page setu 01anne Microsoft Word Help 2 April 25th 07 09:00 PM
Go from single space to double space lines on a WORD doc Arthur Microsoft Word Help 1 August 13th 06 08:09 PM
What are the keystrokes for a Hard Space (Absolute Space)? Bettty Page Layout 1 May 8th 05 01:02 AM


All times are GMT +1. The time now is 10:38 PM.

Copyright ©2000 - 2023, Jelsoft Enterprises Ltd.
Copyright 2004-2023 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"