Hello Stefan,
I have five macros which will make you happy (kindly supplied originally by
John McGhie):
The first four add/subtract 2 points of leading before/after the paragraph
each time you click its button. The fifth inserts a fixed amount of
leading, in this case 6 points after.
I use these buttons often to nudge text when the style I'm using isn't quite
sufficient, e.g. next to tables.
In all of these macros you can of course change the number of points you
want. I find two points the most useful because it gives me the most control
with the minimum number of buttons -- for example, 4 quick clicks in
succession gives me 8 points. I should mention that I don't have double
paragraph marks in my documents -- I have 10 points of leading in my body
text style to separate the paragraphs, and other values in other styles. So
my choice of 2 points may not accord with your requirements as they stand
right now.*
I customized buttons for the macros; you can see what they look like on page
82 of my notes on the way I use Word, called "Bend Word to your Will", at
http://word.mvps.org/FAQs/WordMac/Bend/BendWord.htm (don't download the
template; a new one is going up soon with a minor (though unharmful) glitch
removed. (The graphic shows the buttons on the Mac; if you're on Windows
they will look much the same.)
* [Note to 2nd-last paragraph: If you are curious about why most advanced
Word users don't use double paragraph returns, see page 72 of "Bend Word to
your Will", or do a "Find" command for "double paragraph returns"]
Enjoy!
-- Clive Huggan
Canberra, Australia
============================================================
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 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
'
Selection.ParagraphFormat.SpaceAfter = _
Selection.ParagraphFormat.SpaceAfter - 2
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
'
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
'
Selection.ParagraphFormat.SpaceBefore = _
Selection.ParagraphFormat.SpaceBefore - 2
End Sub
Sub sixPointsAfter()
'
' sixPointsAfter Macro
' puts 6 points of space after (below) the paragraph
' Macro written 16/03/00 by John McGhie
'
Selection.ParagraphFormat.SpaceAfter = 6
End Sub
========================================================
