Change Paragraph Spacing 1 point using keyboard

[Guest]

How do I increase / decrease paragraph spacing by 1 point at a time using the
keyboard or toolbar buttons (similar to changing font size with ctrl [ & ]
keys)

 

[Jay Freedman]

How do I increase / decrease paragraph spacing by 1 point at a time using the
keyboard or toolbar buttons (similar to changing font size with ctrl [ & ]
keys)

There is no built-in command or keystroke for this. There's an
OpenOrCloseUpPara command, assigned by default to Ctrl+0, that
alternately adds and removes 12 pt of Space Before. There are also
commands IncreaseParagraphSpacing and DecreaseParagraphSpacing,
neither of them assigned a keystroke by default, that add and subtract
6 pt of Space Before.

If you really need a 1-pt increment, you'll have to add these macros
to your template and assign keystrokes to them through the Tools >
Customize > Keyboard dialog:

Sub IncreaseParagraphSpacing1pt()
Selection.ParagraphFormat.SpaceBefore = _
Selection.ParagraphFormat.SpaceBefore + 1
End Sub

Sub DecreaseParagraphSpacing1pt()
Selection.ParagraphFormat.SpaceBefore = _
Selection.ParagraphFormat.SpaceBefore - 1
End Sub

See http://www.gmayor.com/installing_macro.htm if needed.

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.

 

[Jay Freedman]

How do I increase / decrease paragraph spacing by 1 point at a time using the
keyboard or toolbar buttons (similar to changing font size with ctrl [ & ]
keys)

There is no built-in command or keystroke for this. There's an
OpenOrCloseUpPara command, assigned by default to Ctrl+0, that
alternately adds and removes 12 pt of Space Before. There are also
commands IncreaseParagraphSpacing and DecreaseParagraphSpacing,
neither of them assigned a keystroke by default, that add and subtract
6 pt of Space Before.

If you really need a 1-pt increment, you'll have to add these macros
to your template and assign keystrokes to them through the Tools >
Customize > Keyboard dialog:

Sub IncreaseParagraphSpacing1pt()
Selection.ParagraphFormat.SpaceBefore = _
Selection.ParagraphFormat.SpaceBefore + 1
End Sub

Sub DecreaseParagraphSpacing1pt()
Selection.ParagraphFormat.SpaceBefore = _
Selection.ParagraphFormat.SpaceBefore - 1
End Sub

See http://www.gmayor.com/installing_macro.htm if needed.

One correction: The Decrease macro needs to be changed to avoid an
error if the Space Before is already zero:

Sub DecreaseParagraphSpacing1pt()
With Selection.ParagraphFormat
If .SpaceBefore > 0 Then
.SpaceBefore = .SpaceBefore - 1
End If
End With
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.