Removing space between paragraphs in Word 2004

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 Format/Style/Modify/Paragraph dialog:

Checking the Don't add space between paragraphs of the same style checkbox sets the style's 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:

When 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.

Valid XHTML 1.1 Valid CSS Made on a Macintosh