Liza sta lavorando con 50 piccoli documenti, molti meno di una pagina. Tutti sono in file separati (no master o sottodocumenti). Vorrebbe conoscere il conteggio totale delle parole in tutti i file e si chiede se esiste un modo semplice per ottenere il conteggio.

Un’opzione è utilizzare un componente aggiuntivo di terze parti in grado di calcolare il conteggio delle parole per te. Ecco tre suggerimenti che potresti voler controllare:

WordCounter: http://www.editorium.com/counter.htm FineCount: http://www.tilti.com/software-for-translators/finecount/ Total Assistant: http://www.surefiresoftware.com/totalassistant/

Ovviamente, se preferisci “eseguire il rollio tuo” piuttosto che affidarti alla soluzione di qualcun altro, puoi creare una macro relativamente semplice che scorrerà ogni file in una cartella e calcolerà il conteggio totale delle parole.

Sub GetWordCount()

Dim docname As String     Dim NumWords As Long     Dim NumFiles As Integer     Dim PathName As String

PathName = "c:\mypath\"



NumWords = 0     docname = Dir(PathName & ".doc")

While docname <> ""

NumFiles = NumFiles + 1         Documents.Open FileName:=PathName & docname, Visible:=False         Documents(docname).Activate

NumWords = NumWords + ActiveDocument.BuiltInDocumentProperties("Number of words").Value

Documents(docname).Close savechanges:=False         docname = Dir     Wend

MsgBox ("There are " & NumWords & " words in " & NumFiles & " documents.")

End Sub

Per utilizzare la macro, assicurati di modificare la variabile PathName in modo che rifletta il percorso della cartella contenente i documenti che desideri conteggiare. (La designazione del percorso deve terminare con una barra rovesciata.) Quando si esegue la macro, viene visualizzato il conteggio delle parole in una finestra di messaggio.

_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 (13278) si applica a Microsoft Word 2007, 2010, 2013, 2016, 2019 e Word in Office 365. Puoi trovare una versione di questo suggerimento per vecchia interfaccia del menu di Word qui: