Word ha questo ingegnoso strumento che conta per te il numero di parole nel tuo documento. L’unico problema è che non conta tutte le parole. Ad esempio, se il documento contiene caselle di testo, lo strumento per il conteggio delle parole non includerà alcun testo nelle caselle delle parole nel conteggio delle parole complessivo del documento. Questo può essere un vero problema, in particolare se stai usando caselle di testo per implementare un elemento del documento speciale, come le barre laterali.

Tuttavia, esiste un modo per aggirare il problema. Puoi contare tutte le parole nella parte principale del documento come faresti normalmente, quindi annotare quel numero. Quindi sposta il punto di inserimento in una casella di testo.

Se si esegue lo strumento di conteggio delle parole, Word restituisce il numero di parole in quella casella di testo. Se selezioni più caselle di testo prima di eseguire lo strumento di conteggio delle parole, Word restituisce il conteggio di tutte le parole in tutte le caselle di testo selezionate. Se stai utilizzando caselle di testo collegate, non devi selezionarle tutte, ma devi spostare il punto di inserimento nell’ultima casella di testo della serie. Quando aggiungi il conteggio delle parole nel documento principale, più il conteggio delle parole per qualsiasi casella di testo, avrai il conteggio delle parole per l’intero documento.

Se usi molto le caselle di testo, il processo sopra può diventare piuttosto fastidioso. Se preferisci, puoi creare una macro che automatizzerà il processo per te. La seguente macro determina il conteggio delle parole nel documento principale e aggiunge ad esso il conteggio delle parole per ogni casella di testo nel documento. Il risultato è un conteggio totale delle parole, come descritto sopra.

Sub TxtBxCount()

Dim i As Integer     Dim TxtWrds As Range     Dim TxtWrdsStats As Long     Dim ToTxtWrds As Long     Dim Lngwords As Long     Dim ToWords As Long

Lngwords = ActiveDocument.BuiltInDocumentProperties(wdPropertyWords)

For s = 1 To ActiveDocument.Shapes.Count         Set TxtWrds = ActiveDocument.Shapes(s).TextFrame.TextRange         TxtWrdsStats = TxtWrds.ComputeStatistics(Statistic:=wdStatisticWords)

ToTxtWrds = ToTxtWrds + TxtWrdsStats     Next     ToWords = Lngwords + ToTxtWrds     MsgBox ("The document has " & Format(ToWords, "##,##0") & " words.")

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