Einzelne W÷rter in Winword umranden

In der Ausgabe 7/98 hat WIN ein Makro ihres Lesers Dietmar SchΣfer aus Premnitz fⁿr das Umranden eines markierten Textbereichs vorgestellt. Andreas Stenzel aus Berlin schlΣgt dazu eine Erweiterung vor, da das Makro unter gewissen UmstΣnden nicht funktioniert. Wenn in Winword nΣmlich die Option Ausschneiden und Einfⁿgen mit Leerzeichenausgleich auf der Registerkarte Bearbeiten der Optionen aktiviert ist, funktioniert das L÷schen des letzten Leerzeichens nicht. Anwender dieses Makros k÷nnen die Option ⁿber den Befehl Extras û Optionen ausschalten oder das Makro entsprechend erweitern, wenn sie die Option nutzen wollen. Weil der Befehl AnsichtFeldfunktionen nur im Layoutmodus das gewⁿnschte Ergebnis liefert û im Normalmodus schaltet der Befehl die Feldfunktionen nur um -, sollte das Makro vorher auch in diesen Modus wechseln. Das verΣnderte Makro sieht wie folgt aus:

Sub MAIN
	AnsichtLayout
	ExtrasOptionenBearbeiten .MitLeerzeichenAusschneidenEinfⁿgen = 0
	LΣnge = Len (Markierung$())
	EinfⁿgenFeldzeichen
	Einfⁿgen ôFormel \X (ô
	ZeichenRechts LΣnge
	Einfⁿgen ô)ô
	BearbeitenL÷schen
	FelderAktualisieren
	AnsichtFeldfunktionen
	ExtrasOptionenBearbeiten .MitLeerzeichenAusschneidenEinfⁿgen = 1
End Sub