想象您正在开发一个使用文本颜色向读者传达特殊含义的文档。例如，您可以使用红色文本指示用户应输入的内容。如果您要开发的文档中使用了文本内的颜色，那么一遍又一遍地使用菜单来更改文本颜色可能是个麻烦。在这种情况下，拥有一个可以自动修改颜色的宏会很有帮助。您可以将宏分配给组合键或工具栏按钮，因此不必使用菜单。下面的宏将当前所选文本的颜色更改为红色。

Sub MakeRed()

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

如果要使用红色以外的其他颜色，请更改在宏中进行的颜色分配。 （只需将常数wdRed更改为所需的颜色。）VBA允许您使用常数来表示颜色。

有十七种不同的颜色编号可用：

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

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（253）适用于Microsoft Word 97、2000、2002和2003。