Quickly Adjusting Paragraph Spacing

One of the finishing touches that many people need to apply to their documents is to precisely adjust the spacing between their paragraphs to achieve a desired look. Word provides quite a bit of control over the spacing between paragraphs. You do this by adjusting the Before and After values in the Paragraph dialog box.

If you do quite a bit of adjusting space before or after a paragraph, it can become tedious to continually display the Paragraph dialog box and make the adjustments. Unfortunately, Word does not include any keyboard shortcuts that allow you to adjust this type of spacing quickly. You can, however, achieve an equivalent ease-of-use by developing your own macros.

For instance, the following macros will adjust the space after a paragraph by a single point.

Sub SAPlus()
   Dim SA As Integer
   SA = Selection.ParagraphFormat.SpaceAfter + 1
   If SA > 1584 Then SA = 1584
   Selection.ParagraphFormat.SpaceAfter = SA
End Sub

Notice that the macro only allows you to increase the space after a paragraph to 1584 points. This is because this is the maximum value allowed by Word; a higher value would generate an error. A slight variation on the macro results in one for decreasing space after a paragraph:

Sub SAMinus()
   Dim SA As Integer
   SA = Selection.ParagraphFormat.SpaceAfter - 1
   If SA < 0 Then SA = 0
   Selection.ParagraphFormat.SpaceAfter = SA
End Sub

Note that these macros could easily be modified to use some other value or formula for calculating the increment or decrement for spacing. For instance, you could add or subtract 6 points at a time, if desired. You could also change the macros so they apply to the space before a paragraph by simply changing every occurrence of "after" to "before."

The final trick to make these macros really useful is to assign them to a keyboard combination or buttons on the toolbar. You can do this using information provided in other issues of WordTips.