Winword 7.0

Wenn man in Word nicht ausgeklügelte Dokumentvorlagen verwendet, sondern seine Formatierungen "zu Fuß" vornimmt, ist die Änderung des Absatzabstandes zuweilen etwas mühsam. Wer Word wie eine Schreibmaschine verwendet und einfach mehrmals die [Return]-Taste betätigt, um den Abstand zwischen zwei Absätzen zu vergrößern, kann von dem im Kasten abgedruckten Makro profitieren. Als Schaltfläche in die Symbolleiste integriert, rückt es bei jedem Klick den aktuellen Absatz - also denjenigen, indem sich gerade der Cursor befindet - um einen Abstand von 3 Punkt nach unten. Überschreitet man den im Makro definierten Maximalabstand von 36 Punkt, rutscht die Formatierung automatisch wieder auf den Standardabstand zurück. Falls Sie andere Werte als 3 Punkt Abstand und den Maximalwert von 36 Punkt wünschen, ändern Sie das Makro entsprechend ab.
Makrolisting Absatzabstand:
Sub MAIN
'Schrittweite anpassen
pt = 3
'Maximalen Abstand anpassen
maxAbstand = 36
'Aktuellen Abstand ermitteln
Dim Dlg As FormatAbsatz
GetCurValues Dlg
abstand = Val(dlg.Vor)
'Abstand vergrößern
abstand = abstand + pt
If abstand > maxAbstand Then abstand = 0
'Statusmeldung ausgeben
msg$ = "Abstand =" + Str$(abstand)
MsgBox msg$, "", - 2
'Neuen Abstand setzen
FormatAbsatz .Vor = abstand
End Sub