In questo articolo, ti mostreremo 2 modi rapidi ed efficaci per contare il numero totale di pagine e parole per più documenti Word.
Di tanto in tanto, mentre lavoriamo su un lungo documento, tendiamo a suddividere i contenuti in diversi file Word, ad esempio inserendo diversi capitoli in più documenti. Poi, quando si tratta di contare il numero totale di pagine e parole, può essere un po' faticoso, dato che devi aprire ogni singolo documento e controllare le informazioni.
Pertanto, elenchiamo 2 metodi rapidi per aiutarti a risparmiare tempo prezioso.
Metodo 1: controllare i dettagli nella cartella dei file
Nel testo, daremo un esempio nell'ambiente di Windows 7.
- Prima di tutto, organizza tutti i documenti da controllare in una cartella di file.
- Quindi apri la cartella del file e fai clic sul pulsante "Altre opzioni" accanto a "Cambia la tua visualizzazione".
- Quindi fai clic su "Dettagli".
- Ora fai clic con il tasto destro sulla riga dell'intestazione e scegli "Altro".
- Nella finestra di dialogo "Scegli dettagli", seleziona le caselle "Pagine" e "Conteggio parole".
- Quindi fare clic su "OK".
Ora ci saranno 2 nuove colonne, che espongono le pagine e le parole di ogni documento. Devi solo sommare questi numeri insieme.
Tuttavia, questo metodo fornisce solo un numero approssimativo di parole in ciascun file. Pertanto, per ottenere una cifra più precisa, puoi scegliere il metodo 2.
Metodo 2: creare una macro
- Analogamente, inserisci prima tutti i documenti di destinazione in un'unica cartella.
- Quindi apri Word e fai clic sulla scheda "Sviluppatore".
- Quindi fai clic su "Visual Basic" per aprire l'editor VBA. Oppure puoi semplicemente premere "Alt + F11".
- Ora fai clic su "Normale" e "Inserisci".
- Quindi scegli "Modulo".
- Quindi fai doppio clic sul nuovo modulo e incolla i seguenti codici nell'area di modifica:
Sub GetAllPageNumbers()
Dim objWordApplication As Word.Application
Dim nPageNumber As Long
Dim nWordNumber As Long
Dim objFile As Variant
Dim objFileSystem As Object
Dim objFolders As Object
nPageNumber = 0
Set objWordApplication = New Word.Application
Set objFileSystem = CreateObject("scripting.filesystemobject")
Set objFolders = objFileSystem.getfolder("C:\Users\Test\Desktop\files")
For Each objFile In objFolders.Files
' Only process non-hidden files
If (objFile.Attributes And 2) = 0 Then
With objWordApplication
.Documents.Open (objFile)
nPageNumber = nPageNumber + .ActiveDocument.ComputeStatistics(wdStatisticPages)
nWordNumber = nWordNumber + .ActiveDocument.ComputeStatistics(wdStatisticWords)
.ActiveDocument.Close (False)
End With
End If
Next objFile
MsgBox ("pages:" & nPageNumber & " " & "words:" & nWordNumber)
Set objFile = Nothing
Set objFileSystem = Nothing
Set objFolders = Nothing
Set objWordApplication = Nothing
End Sub
- Infine, fai clic su "Esegui". Quindi verrai accolto da una finestra di messaggio, che indica il numero di pagina e le parole totali, come di seguito:
Nota: "C:\Users\Test\Desktop\files" si riferisce alla posizione della cartella dei file.
Attenzione alla corruzione dei documenti
Poiché ogni giorno dobbiamo gestire tutti i tipi di report, è consigliabile eseguire il backup di alcuni file critici nel caso in cui vengano danneggiati perché il backup è sempre una parte vitale della rete di sicurezza per proteggere l'integrità dei file. Tuttavia, il fatto è che anche i backup possono fallire vittime di corruzione. Ed è allora che avrai bisogno di un preminente strumento di recupero file Word corrotto
Introduzione dell'autore:
Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui strumento di riparazione dei problemi di dati xlsx and pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com