Dans cet article, nous allons vous montrer 2 façons rapides et efficaces de compter le nombre total de pages et de mots pour plusieurs documents Word.
De temps en temps, lorsque nous travaillons sur un long document, nous avons tendance à diviser le contenu en plusieurs fichiers Word, par exemple en plaçant différents chapitres dans plusieurs documents. Ensuite, quand il s'agit de compter le nombre total de pages et de mots, cela peut être un peu fastidieux, car vous devez ouvrir chaque document individuellement et vérifier les informations.
Par conséquent, nous énumérons 2 méthodes rapides pour vous aider à gagner un temps précieux.
Méthode 1 : vérifier les détails dans le dossier de fichiers
Dans le texte, nous donnerons un exemple sous l'environnement de Windows 7.
- Tout d'abord, organisez tous les documents à vérifier dans un seul dossier.
- Ouvrez ensuite le dossier de fichiers et cliquez sur le bouton "Plus d'options" à côté de "Modifier votre vue".
- Cliquez ensuite sur "Détails".
- Maintenant, faites un clic droit sur la ligne d'en-tête et choisissez "Plus".
- Dans la boîte de dialogue "Choisir les détails", cochez les cases "Pages" et "Nombre de mots".
- Cliquez ensuite sur «OK».
Maintenant, il y aura 2 nouvelles colonnes, présentant les pages et les mots de chaque document. Il vous suffit d'additionner ces nombres.
Cependant, cette méthode ne vous fournit qu'un nombre approximatif de mots dans chaque fichier. Ainsi, pour obtenir un chiffre plus précis, vous pouvez choisir la méthode 2.
Méthode 2 : créer une macro
- De même, placez d'abord tous les documents cibles dans un seul dossier.
- Ouvrez ensuite Word et cliquez sur l'onglet "Développeur".
- Cliquez ensuite sur "Visual Basic" pour ouvrir l'éditeur VBA. Ou vous pouvez simplement appuyer sur "Alt + F11".
- Cliquez maintenant sur "Normal" et "Insérer".
- Choisissez ensuite "Module".
- Double-cliquez ensuite sur le nouveau module et collez les codes suivants dans la zone d'édition :
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
- Enfin, cliquez sur "Exécuter". Ensuite, vous serez accueilli par une boîte de message, indiquant le numéro de page et le nombre total de mots, comme ci-dessous :
Remarque : "C:\Users\Test\Desktop\files" fait référence à l'emplacement du dossier de fichiers.
Attention à la corruption de documents
Étant donné que nous devons traiter toutes sortes de rapports chaque jour, il est conseillé de sauvegarder certains fichiers critiques au cas où ils seraient corrompus, car la sauvegarde est toujours un élément essentiel du filet de sécurité pour protéger l'intégrité des fichiers. Cependant, le fait est que les sauvegardes peuvent également être victimes de corruption. Et c'est alors que vous aurez besoin d'un prééminent outil de récupération de fichiers Word corrompu
Introduction de l'auteur:
Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris outil de réparation des problèmes de données xlsx et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com