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.