Stellen Sie sich vor, Sie entwickeln ein Dokument, das Textfarben verwendet, um dem Leser besondere Bedeutungen zu signalisieren. Beispielsweise können Sie roten Text verwenden, um anzugeben, was der Benutzer eingeben soll. Wenn Sie ein Dokument entwickeln, in dem Sie Farbe in Ihrem Text verwenden, kann es sehr schwierig sein, die Menüs immer wieder zum Ändern der Textfarben zu verwenden. In einem solchen Fall ist es hilfreich, ein Makro zu haben, das die Farbe automatisch ändert. Sie können das Makro einer Tastenkombination oder einer Symbolleistenschaltfläche zuweisen, damit Sie die Menüs nicht verwenden müssen. Das folgende Makro ändert die Farbe des aktuell ausgewählten Texts in Rot.

Sub MakeRed()

If Selection.Type = wdSelectionNormal Or _       Selection.Type = wdSelectionBlock Then         Selection.Font.ColorIndex = wdRed     Else         Beep     End If End Sub

Wenn Sie neben Rot eine andere Farbe verwenden möchten, ändern Sie die im Makro vorgenommene Farbzuweisung. (Ändern Sie einfach die Konstante wdRed in die gewünschte Farbe.) Mit VBA können Sie Konstanten zur Darstellung von Farben verwenden.

Es stehen siebzehn verschiedene Farbnummern zur Verfügung:

Number

Text Color

Word Constant

0

Auto

wdAuto

1

Black

wdBlack

2

Blue

wdBlue

3

Cyan

wdTurquoise

4

Green

wdBrightGreen

5

Magenta

wdPink

6

Red

wdRed

7

Yellow

wdYellow

8

White

wdWhite

9

Dark Blue

wdDarkBlue

10

Dark Cyan

wdTeal

11

Dark Green

wdGreen

12

Dark Magenta

wdViolet

13

Dark Red

wdDarkRed

14

Dark Yellow

wdDarkYellow

15

Dark Gray

wdGray50

16

Light Gray

wdGray25

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (253) gilt für Microsoft Word 97, 2000, 2002 und 2003.