Conti Word per un gruppo di documenti

Lise sta lavorando con 50 piccoli documenti, molti meno di una pagina lunga. Tutti sono in file separati (senza maestri oi documenti secondari). Vorrebbe sapere contare la parola totale in tutti i file e le chiede se c'è un modo semplice per ottenere il conteggio.

Una possibilità è quella di utilizzare un terzo aggiuntivo in grado di calcolare la parola conta per voi. Ecco tre suggerimenti si consiglia di controllare:

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

Naturalmente, se si preferisce "roll your own", piuttosto che fare affidamento su soluzioni di qualcun altro, è possibile creare una relativamente semplice macro che è possibile scorrere ogni file in una cartella e calcolare un conteggio totale di parola.

Sub GetWordCount ()
Dim docname As String
NumWords Dim As Long
NumFiles Dim As Integer
PathName Dim As String

PathName = "c: \ mypath \"

NumWords = 0
docname = Dir (PathName e "* .doc *")
Mentre docname <> ""
NumFiles = NumFiles + 1
Documents.Open FileName: = PathName & docname, Visible: = False
Documenti (docname) .Activate

NumWords = NumWords + ActiveDocument.BuiltInDocumentProperties ("Numero di parole"). Valore

Documenti (docname) SaveChanges .Close: = False
docname = Dir
Wend

MsgBox ("Ci sono" e NumWords e "parole" e NumFiles e "documenti".)
End Sub

Per utilizzare la macro, assicuratevi di modificare la variabile PathName in modo che rifletta il percorso della cartella contenente i documenti da coincidere. (La designazione percorso deve terminare con un backslash.) Quando si esegue la macro, viene visualizzato il numero di parole in una finestra di messaggio.

WordTips è la vostra fonte per la formazione Microsoft Word conveniente. (Microsoft Word è il più popolare software di elaborazione testi del mondo.) Questa punta (13278) si applica a Microsoft Word 2007, 2010 e 2013. Potete trovare una versione di questo suggerimento per l'interfaccia del menu precedente di Word qui: Conti di Word per un gruppo di documenti.