Winword 2.0
Wörter per Mausklick in einen Rahmen setzen
Antwort
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 BearbeitenAusschneiden
EinfügenFeldzeichen BearbeitenAutoText .Name = "Rahmen", Kontext = 0,
.EinfügenAls = 0, .Einfügen ZeichenLinks 1 BearbeitenEinfügen
AnsichtFeldfunktionen(0) End Sub