Word fornisce uno strumento integrato che consente di ottenere un conteggio del numero di parole nel documento. Tuttavia, alcune persone preferiscono avere un conteggio delle parole costantemente aggiornato nel loro documento. In questo modo, possono tenere d’occhio il contatore di parole e smettere di scrivere quando hanno raggiunto il numero di parole desiderato nel loro documento.

Sfortunatamente, Word non fornisce un conteggio delle parole in esecuzione incorporato che puoi attivare o disattivare. Tuttavia, puoi creare una macro che fornirà le informazioni necessarie per te. La seguente elegante macro mostrerà un conteggio delle parole in costante aggiornamento alla fine della barra degli strumenti di formattazione:

Sub WordCounter()

Set myBar = CommandBars("Formatting")

Set myControls = myBar.Controls     NumButtons = myControls.Count

ButtonLoc = 0     For J = 1 To NumButtons         If myControls(J).Type = msoControlButton Then             ButtonName$ = myControls(J).OnAction             If ButtonName$ = "WordCounter" Then ButtonLoc = J         End If     Next J

If ButtonLoc = 0 Then         ButtonLoc = NumButtons + 1         Set newControl = myControls.Add(Type:=msoControlButton)

newControl.OnAction = "WordCounter"

newControl.Style = msoButtonCaption     End If

Set myRange = ActiveDocument.Content     WdCount = myRange.ReadabilityStatistics(1).Value     With myControls(ButtonLoc)

.Caption = WdCount     End With

Application.OnTime When:=Now + TimeSerial(0, 0, 5), _       Name:="WordCounter"

End Sub

Si noti che questa macro aggiunge il conteggio delle parole alla fine della barra degli strumenti di formattazione quando viene eseguita per la prima volta. Il pulsante della barra degli strumenti rimane lì da quel momento in poi.

Se successivamente modifichi la barra degli strumenti in modo che il pulsante non si trovi alla fine della barra degli strumenti, la macro lo troverà e agirà di conseguenza.

Al primo avvio di Word (dopo aver eseguito questa macro), sarà necessario fare clic sul pulsante della barra degli strumenti per avviare la macro. Ovviamente, puoi creare una macro di avvio automatico separata che eseguirà WordCounter al primo avvio di Word.

Una cosa da notare sulla macro è che viene rieseguita ogni cinque secondi.

Se questo è troppo spesso, è possibile modificare il valore (5) nella funzione TimeSerial verso la fine della macro. A seconda della velocità del tuo sistema, potresti notare un leggero sfarfallio dello schermo ogni volta che viene eseguita la macro, ma avrai sicuramente un conteggio delle parole aggiornato. Se invece vuoi il conteggio delle parole solo quando fai clic sul pulsante nella barra degli strumenti, rimuovi semplicemente la riga Application.OnTime vicino alla fine della macro.

Se vuoi rimuovere la macro in modo che non venga più eseguita, dovresti seguire questi tre semplici passaggi:

  1. Esci da Word.

  2. Riavvia Word. La macro ora non è in esecuzione.

  3. Modifica la barra degli strumenti di formattazione per rimuovere il pulsante WordCounter.

_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 (1745) si applica a Microsoft Word 97, 2000, 2002 e 2003.