Winword 6.0

Neben den üblichen Formatierungen wie fett, kursiv und unterstrichen ist auch die gesperrte Darstellung - also die Vergrößerung des Buchstabenabstands - ein beliebtes Mittel, um einzelne Wörter hervorzuheben. Allerdings ist diese Art der Formatierung nur sehr umständlich über ╗Format | Zeichen | Abstand | Laufweite½ zu erreichen. Um einzelne Wörter per Mausklick gesperrt darzustellen und durch einen weiteren Mausklick die gesperrte Formatierung wieder aufzuheben, benötigen Sie das im Kasten abgedruckte Makro. Es formatiert das Wort, in dem sich der Cursor gerade befindet, mit einer größeren Laufweite und setzt jeweils ein Leerzeichen vor und hinter das Wort, um es besser von dem umgebenden Text abzuheben. Möchten Sie ein Wort, das bereits durch das Makro formatiert wurde, wieder in seinen ursprünglichen Zustand zurückversetzen, genügt es, den Cursor in das Wort zu setzen und das Makro nochmals auszuführen. Dann entfernt es die zuvor eingefügten Leerzeichen und reduziert die Lauf- weite wieder auf das Normalmaß. Am besten integrieren Sie eine Schaltfläche für das neue Makro in Ihre Symbolleiste. Wählen Sie dafür aus dem Menü ╗Extras½ den Punkt ╗Anpassen½, und bewegen Sie sich dann im Feld ╗Kategorien½ des Registerblattes ╗Symbolleisten½ so weit nach unten, bis Sie den Cursor auf ╗Makros½ setzen können. Unter ╗Makros½ (rechts in der Dialogbox) erscheinen jetzt alle zur Verfügung stehenden Makros. Um das neue Makro in die Symbollei-ste aufzunehmen, ziehen Sie es per Drag & Drop in eine der vorhandenen Symbolleisten am besten rechts neben die Schaltflächen ╗Fett½, ╗Kursiv½ und ╗Unterstrichen½. Gestalten Sie anschließend mit ╗Bearbeiten½ ein neues Design oder wählen eines der von Word angebotenen Layouts für die neue Schaltfläche aus.
Makrolisting zum gesperrten Formatieren einzelner Wörter:
Sub MAIN MarkierungAktuellWort
Dim Abstand As FormatZeichen
GetCurValues Abstand
Wert$ = Abstand.Laufweite
If Wert$ = "0 pt" Then
FormatZeichen .Laufweite = "1,6 pt", .Position = "0 pt", \
.Registerkarte = "1"
ZeichenLinks 1
Einfügen " "
WortRechts 1
Einfügen " "
FormatZeichen .Laufweite = "0 pt", .Position = "0 pt", \
.Registerkarte = "1"
Else
FormatZeichen .Laufweite = "0 pt", .Position = "0 pt", \
.Registerkarte = "1"
WortLinks 1
ZeichenLinks 2, 1
If Markierung$() = " " Then
ZeichenRechts 1
BearbeitenLöschen - 1
Else
WortRechts 2
Goto WEITER
End If
WortRechts 1
WEITER:
ZeichenLinks 2, 1
If Markierung$() = " " Then
ZeichenLinks 1
BearbeitenLöschen
Else
ZeichenRechts 1
End If
End If
End Sub