Modifica del colore dei caratteri (Microsoft Word)
Immagina di sviluppare un documento che utilizza i colori del testo per segnalare significati speciali al lettore. Ad esempio, puoi utilizzare il testo rosso per indicare cosa l’utente deve digitare. Se stai sviluppando un documento in cui usi il colore all’interno del tuo testo, può essere una vera seccatura usare i menu più e più volte per cambiare i colori del testo. In tal caso, è utile disporre di una macro che modifica automaticamente il colore. È possibile assegnare la macro a una combinazione di tasti o a un pulsante della barra degli strumenti in modo da non dover utilizzare i menu. La seguente macro cambia il colore del testo attualmente selezionato in rosso.
Sub MakeRed() If Selection.Type = wdSelectionNormal Or _ Selection.Type = wdSelectionBlock Then Selection.Font.ColorIndex = wdRed Else Beep End If End Sub
Se vuoi usare un colore diverso dal rosso, modifica l’assegnazione del colore fatta nella macro. (Basta cambiare la costante wdRed nel colore desiderato.) VBA consente di utilizzare le costanti per rappresentare i colori.
Sono disponibili diciassette diversi numeri di colore:
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: _
Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.
WordTips è la tua fonte di formazione economica su Microsoft Word.
(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (253) si applica a Microsoft Word 97, 2000, 2002 e 2003.