WinWord 2003 has an option to suppress spacing between paragraphs of the same style, so that spacing after paragraph only applies to the last paragraph in a block of paragraphs of the same style. This option is toggled in Word03's
dialog:Checking the NoSpaceBetweenParagraphsOfSameStyle property and eliminates the spacing between paragraphs of the same style. For instance, here I defined the Heading 1 style to have zero space before or after, and the Body Text style to have zero space before, and 12 points of space after. With the NoSpaceBetweenParagraphsOfSameStyle property set to False (i.e., the checkbox cleared) the document looks like:
checkbox sets the style'sWhen the Body Text style's NoSpaceBetweenParagraphsOfSameStyle property is set to True (i.e, the checkbox is checked), the document looks like this:
Word 2004 recognizes the NoSpaceBetweenParagraphsOfSameStyle property, but doesn't have a way in the user interface to set or clear it. This macro, however will do the trick. Just select within a paragraph of the style you wish to modify, and run it:
Public Sub ToggleNoSpaceBetweenParagraphs() On Error Resume Next With Selection.Paragraphs(1).Style .NoSpaceBetweenParagraphsOfSameStyle = _ Not .NoSpaceBetweenParagraphsOfSameStyle End With On Error GoTo 0 End Sub
It can be attached to a Toolbar button (Word Help: "Add a toolbar button to run a macro from") or a keyboard shortcut.
© Copyright 2001 - 2004 McGimpsey and Associates. Except where noted, all code on this site may be distributed under the Gnu GPL. Acknowledgement is appreciated.