Probabilmente sapevi già che Word fornisce un modo per determinare il numero di parole in una selezione o nell’intero documento. Word ha i suoi algoritmi interni per calcolare il conteggio corretto. Questo è fantastico, se hai bisogno di conoscere il conteggio delle parole effettivo.

Prima dei giorni del conteggio delle parole effettive, tuttavia, i dattilografi hanno capito il numero di parole medie in un documento. Ciò è stato fatto calcolando il numero di caratteri digitati e quindi dividendo quella cifra per cinque. Per alcuni scopi potrebbe essere ancora necessario calcolare il conteggio delle parole utilizzando questo approccio antiquato. Questo può essere fatto con una semplice macro, come segue:

Sub WordCount()

Dim Title As String     Dim WordCount As Integer     Dim Message As String

Title = "WordCount"

WordCount = Int((Len(Selection) / 5) + 0.5)

Message = LTrim(Str(WordCount)) + " word"

If WordCount <> 1 Then Message = Message + "s"

MsgBox Message, vbOKOnly, Title End Sub

_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 (757) 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:

Counting Words the Old Fashioned Way.