Imagine que está desarrollando un documento que usa colores de texto para señalar significados especiales al lector. Por ejemplo, puede utilizar texto rojo para indicar lo que debe escribir el usuario. Si está desarrollando un documento en el que usa color dentro de su texto, puede ser una verdadera molestia usar los menús una y otra vez para cambiar los colores del texto. En tal caso, es útil tener una macro que modifique el color automáticamente. Puede asignar la macro a una combinación de teclas o un botón de la barra de herramientas para no tener que usar los menús. La siguiente macro cambia el color del texto seleccionado actualmente a rojo.

Sub MakeRed()

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

Si desea utilizar un color diferente además del rojo, cambie la asignación de color realizada en la macro. (Simplemente cambie la constante wdRed al color deseado). VBA le permite usar constantes para representar colores.

Hay diecisiete números de colores diferentes disponibles:

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

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (253) se aplica a Microsoft Word 97, 2000, 2002 y 2003.