Einzelne Wörter in Winword umranden (3)

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