Einzelne W÷rter in Winword umranden
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Σh- rend das Makro fⁿr Wordbasic zu- nΣ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 grund-sΣtzlich identisch.