Представьте, что вы разрабатываете документ, в котором цвета текста используются для передачи читателю особого значения. Например, вы можете использовать красный текст, чтобы указать, что пользователь должен ввести. Если вы разрабатываете документ, в котором вы используете цвет в тексте, может быть очень сложно использовать меню снова и снова для изменения цвета текста. В таком случае полезно иметь макрос, который автоматически изменяет цвет. Вы можете назначить макрос комбинации клавиш или кнопке на панели инструментов, чтобы не использовать меню. Следующий макрос изменяет цвет выделенного текста на красный.

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), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (253) относится к Microsoft Word 97, 2000, 2002 и 2003.