Poiché sto formattando i documenti, molte volte ho bisogno di formattare una parola o un passaggio in particolare sia in grassetto che in corsivo. Word include strumenti (sulla barra degli strumenti Formattazione) che applicano il grassetto e il corsivo, ma non il corsivo grassetto. Mi sono stancato di fare due clic, quindi ho creato il mio strumento per applicare entrambi i formati contemporaneamente. La macro risultante può quindi essere assegnata a uno strumento della barra degli strumenti, proprio accanto agli strumenti Grassetto e Corsivo.

Il modo più semplice per farlo è con una macro come segue:

Sub BoldItalics1()

Selection.Font.Bold = True     Selection.Font.Italic = True End Sub

Questa macro attiva gli attributi, ma non effettua alcuna commutazione. In altre parole, non è possibile disattivare il corsivo grassetto utilizzando la stessa macro, come è possibile fare con i singoli strumenti Grassetto e Corsivo. Questo ha portato alla macro “prossima generazione”, che controlla per vedere lo stato del testo selezionato prima di apportare qualsiasi modifica:

Sub BoldItalics2()

Dim BIStatus As Integer

BIStatus = 0     If Selection.Font.Bold Then BIStatus = BIStatus + 1     If Selection.Font.Italic Then BIStatus = BIStatus + 1

If BIStatus = 0 Then         Selection.Font.Bold = True         Selection.Font.Italic = True     End If     If BIStatus = 1 Then         Selection.Font.Bold = True         Selection.Font.Italic = True     End If     If BIStatus = 2 Then         Selection.Font.Bold = False         Selection.Font.Italic = False     End If End Sub

Le prime righe della macro incrementano una variabile (BIStatus) a seconda che siano impostate le proprietà Grassetto o Corsivo per la selezione. Quando queste righe sono complete, BIStatus sarà 0 se il testo selezionato non è né grassetto né corsivo, 1 se è grassetto o corsivo, o 2 se è sia grassetto che corsivo.

Se BIStatus è impostato su 0 o 1, vengono impostate le proprietà Grassetto e Corsivo per il testo selezionato. Se erano stati impostati in precedenza (BIStatus è 2), entrambe le proprietà vengono disattivate.

_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.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (606) si applica a Microsoft Word 97, 2000, 2002 e 2003. È possibile trovare una versione di questo suggerimento per l’interfaccia a nastro di Word (Word 2007 e più tardi) qui:

Applicazione del corsivo grassetto.