Winword 2.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, wie
wenn man diese 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 Autotexteintrag
erledigen lassen. Schreiben Sie zunächst die Zeichenfolge »Formel \X ()« in das Dokument und markieren Sie
diesen Text. Nach einem Klick auf »Bearbeiten | AutoText« legen Sie einen Namen, wie etwa »Rahmen« fest
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 Sie 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 Sie »Anpassen« aus dem Popup-Menü. Im Register »Symbolleisten« markieren Sie
unter »Kategorien« den Eintrag »Makros«. Sie können nun das neu angelegte Makro per Drag and 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
BearbeitenAusschneidenEinfügenFeldzeichenBearbeitenAutoText
.Name = "Rahmen", Kontext = 0, .EinfügenAls = 0, .EinfügenZeichenLinks 1BearbeitenEinfügen
AnsichtFeldfunktionen(0)
End Sub