Einzelne Wörter in Winword umranden (2)

In ihrer Ausgabe 1/98 hat WIN auf Seite 218 in der Rubrik Leser helfen Lesern eine Lösung zum Umrahmen einzelner markierter Wörter oder Wortgruppen innerhalb einer Zeile in Winword vorgestellt. Der Schlüssel zur Lösung ist die Feldfunktion Formel \X(). Unser Leser Dietmar Schäfer aus Premnitz schlägt vor, diese Arbeit durch ein Makro zu vereinfachen. Um ein neues Makro anzulegen, rufen Sie in Winword den Befehl Extras – Makro auf, geben einen Namen wie zum Beispiel Wortrahmen ein und klicken auf den Button Erstellen.
Alle Anwender von Wordbasic unter Winword 6.0/95 müssen folgende Anweisungen im Makro-Editor eintragen:

Sub MAIN¶
Länge = Len (Markierung$())¶
EinfügenFeldzeichen¶
Einfügen “Formel \X (“¶
ZeichenRechts Länge
Einfügen “)“¶
BearbeitenLöschen¶
FelderAktualisieren¶
AnsichtFeldfunktionen¶
End Sub¶
Alle Anwender von Visual Basic for Applications (VBA) unter Winword 97 tragen folgende Anweisungen in den Funktionsbereich des VBA-Editors ein:
Selection.Cut¶
Selection.TypeText Text:=“  „¶
Selection.MoveLeft Unit:=wdCharacter, Count:=1¶
Selection.Fields.Add Range:=Selection.Range, Type: =wdFieldEmpty, _¶
PreserveFormatting:=False¶
Selection.TypeText Text:=“Formel \X („¶
Selection.Paste¶
Selection.TypeText Text:=“)“¶
Selection.Delete Unit:=wdCharacter, Count:=1¶
Selection.Fields.Update¶
Selection.MoveRight Unit:=wdCharacter, Count:=1¶
Beide Makros erwarten als Voraussetzung einen markierten Textbereich, der automatisch umrahmt wird. Während das Makro für Wordbasic zunächst die Länge der Markierung bestimmt und in einer Variablen speichert, bedient sich das Makro für VBA der Zwischenablage als Speicher für den markierten Text. Sonst sind die Makros in ihrer Funktionsweise grundsätzlich identisch.