Texte invertieren

Schon seit geraumer Zeit suche ich ein Makro, mit dem ich Texte invertieren kann. So soll beispielsweise der Text für einen Aushang weiß auf schwarzem Untergrund erscheinen. Kennen Sie eine Möglichkeit, das zu bewerkstelligen?

Seitdem Winwordá97 als ein Feature die sogenannte Hervorhebung eingeführt hat, ist Ihnen bereits mit einem kleinen Makro geholfen. Dabei ist zunächst der gesamte Text auszuwählen. Durch diese Auswahl können Sie ihn wie ein Objekt behandeln. Bei diesem Objekt ändern Sie dann lediglich noch zwei kleine Eigenschafts-Einstellungen – und fertig.
Um die Schriftfarbe auf Weiß und die Hervorhebung auf Schwarz zu setzen, verwenden Sie dieses Makro: 

Sub Invert ()¶
ActiveDocument.Book-   marks.Add Name:=   ôMyTempBMô, Range:=   Selection.Range¶
Selection.WholeStory¶
With Selection¶
.Font.ColorIndex     = wdWhite¶
.Range.Highlight-     ColorIndex = wd-     Black¶
.GoTo What:=wdGo-     ToBookmark, Name:     =ôMyTempBMô
End With
End SubWIN-CODE: INVERT
Die erste Zeile definiert eine Textmarke namens MyTempBM. Sie dient als Merker für die Position, an der der Anwender das Makro gestartet hat. Die folgende Anweisung markiert den gesamten Text. Nachdem nun die Markierung gesetzt, der ganze Text sozusagen zu einem Objekt geworden ist, sind nur noch die jeweiligen Eigenschaften anzupassen.
Die folgenden beiden Anweisungen setzen die Schriftfarbe auf Weiß und die Hervorhebung auf Schwarz. Um eine andere Farbe zu verwenden, passen Sie die Konstante zur Identifikation der Farbe (wdBlack, wdWhite, wd...) an. Zum Abschluß verschiebt die Goto-Anweisung die Einfügemarke wieder an die Ausgangsposition.