Sub AddTwoPointsAfter()
'
' AddTwoPointsAfter Macro
' adds 2 points of space after (below) the paragraph each time you click the Button
' Macro written 16/03/00 by John McGhie
'
Selection.ParagraphFormat.SpaceAfter = _
Selection.ParagraphFormat.SpaceAfter + 2
End Sub
Sub AddEightPointsAfter()
'
' AddEightPointsAfter Macro
' adds 8 points of space after (below) the paragraph each time you click the Button
' Macro written 16/03/00 by John McGhie
'
Selection.ParagraphFormat.SpaceAfter = _
Selection.ParagraphFormat.SpaceAfter + 8
End Sub
Sub SubtractTwoPointsAfter()
'
' SubtractTwoPointsAfter Macro
' reduces the space after (below) the paragraph by 2 points each time you click the button
' Macro written 16/03/00 by John McGhie
On Error Resume Next
Selection.ParagraphFormat.SpaceAfter = _
Selection.ParagraphFormat.SpaceAfter - 2
End Sub
Sub SubtractEightPointsAfter()
'
' SubtractEightPointsAfter Macro
' reduces the space after (below) the paragraph by 8 points each time you click the button
' Macro written 16/03/00 by John McGhie
'
On Error Resume Next
Selection.ParagraphFormat.SpaceAfter = _
Selection.ParagraphFormat.SpaceAfter - 8
End Sub
Sub AddTwoPointsBefore()
'
' AddTwoPointsBefore Macro
' adds 2 points of space before (above) the paragraph each time you click the Button
' Macro written 16/03/00 by John McGhie
'
On Error Resume Next
Selection.ParagraphFormat.SpaceBefore = _
Selection.ParagraphFormat.SpaceBefore + 2
End Sub
Sub SubtractTwoPointsBefore()
'
' SubtractTwoPointsBefore Macro
' reduces the space before (above) the paragraph by 2 points each time you click the button
' Macro written 16/03/00 by John McGhie
'
On Error Resume Next
Selection.ParagraphFormat.SpaceBefore = _
Selection.ParagraphFormat.SpaceBefore - 2
End Sub
Sub AddEightPointsBefore()
'
' AddEightPointsBefore Macro
' adds 8 points of space before (above) the paragraph each time you click the Button
' Macro written 16/03/00 by John McGhie
'
Selection.ParagraphFormat.SpaceBefore = _
Selection.ParagraphFormat.SpaceBefore + 8
End Sub
Sub SubtractEightPointsBefore()
'
' SubtractEightPointsBefore Macro
' reduces the space before (above) the paragraph by 8 points each time you click the button
' Macro written 16/03/00 by John McGhie
'
On Error Resume Next
Selection.ParagraphFormat.SpaceBefore = _
Selection.ParagraphFormat.SpaceBefore - 8
End Sub
Sub EightPointsAfter()
'
' EightPointsAfter Macro
' puts 8 points of space after (below) the paragraph
' Macro written 16/03/00 by John McGhie
'
Selection.ParagraphFormat.SpaceAfter = 8
End Sub
Sub EightPointsBefore()
'
' EightPointsBefore Macro
' puts 8 points of space after (below) the paragraph
' Macro written 16/03/00 by John McGhie
'
Selection.ParagraphFormat.SpaceBefore = 8
End Sub
Sub ZeroPointsAfter()
'
' ZeroPointsAfter Macro
' puts 0 points of space after (below) the paragraph
' Macro written 16/03/00 by John McGhie
'
Selection.ParagraphFormat.SpaceAfter = 0
End Sub
Sub ZeroPointsBefore()
'
' ZeroPointsBefore Macro
' puts 0 points of space before the paragraph
' Macro written 16/03/00 by John McGhie
'
Selection.ParagraphFormat.SpaceBefore = 0
End Sub