Winword 7.0
Tip: Im Heft 12/1995 wurde in
den Tips und Tricks eine
Methode vorgestellt, einzelne
Wörter im Text mit einem
Rahmen zu versehen. Dieses
Vorgehen war jedoch nicht
automatisiert. Mit Hilfe eines
Makros und der Funktion
»AutoText« ist es aber möglich,
einzelne Wörter oder
Teile eines Absatzes ebenso
einfach, als ob man sie fett
formatieren wollte, lediglich
mit einen Mausklick in
einen Rahmen zu setzen.
Möchte man Textbereiche
mit einem Rahmen versehen,
eignet sich dafür die Feldfunktion
»Formel \X ()«. Der Parameter
»\X« zeichnet um den in
der Klammer eingegebenen
Text einen Rahmen. Statt die
Formel von Hand in das Dokument
einzufügen, können
Sie das auch ein Makro in Verbindung
mit einem neuen Autotext-
Eintrag erledigen lassen.
Schreiben Sie zunächst
die Zeichenfolge »Formel \X
()« in das Dokument und markieren diesen Text. Nach einem
Klick auf »Bearbeiten |
AutoText« legen Sie einen
Namen fest, etwa »Rahmen«,
und bestätigen den Eintrag
mit »Hinzufügen«.
Mit »Extras | Makro« legen
Sie nun auch einen Namen
für Ihr neues Makro fest und
klicken auf »Erstellen«, um
das im Kasten abgedruckte
Listing einzugeben. Verwenden
Sie in der dritten Zeile des
Listings innerhalb der Anführungszeichen
den Namen,
den Sie Ihrem Autotext gegeben
haben. Schließen Sie
anschließend die Datei und
bestätigen die Abfrage, ob Sie
die Änderungen speichern
wollen, mit »Ja«.
Besonders praktisch wird
das Makro aber erst dann,
wenn Sie es in die Symbolleiste
von Word für Windows aufnehmen.
Klicken Sie dafür mit
der rechten Maustaste auf
eine Symbolleiste und wählen
»Anpassen« aus dem Pop-up-Menü.
Im Register »Symbolleisten«
markieren Sie unter
»Kategorien« den Eintrag
»Makros«. Sie können nun
das neu angelegte Makro per
Drag & Drop in eine der bestehenden
Symbolleisten aufnehmen
- idealerweise in der
Nähe der Formatierungs-Schaltflächen
für fett, kursiv
und unterstrichen.
Wollen Sie eines oder mehrere
Wörter im Text in einen
Rahmen setzen, markieren Sie
den gewünschten Textbereich
und betätigen die neue Schaltfläche.
Makrolisting Rahmen
Sub MAIN
BearbeitenAusschneiden
EinfügenFeldzeichen
BearbeitenAutoText .Name = "Rahmen", Kontext = 0,
.EinfügenAls = 0, .Einfügen
ZeichenLinks 1
BearbeitenEinfügen
AnsichtFeldfunktionen(0)
End Sub