Dans l'article d'aujourd'hui, il existe 3 façons rapides d'obtenir des statistiques sur le nombre de mots liés aux zones de texte, aux notes de bas de page et aux notes de fin de votre document.
Il n'est pas difficile d'obtenir le nombre total de mots dans un document. Mais si vous voulez obtenir le nombre de mots de différents types de textes, d'autres opérations seront nécessaires. Voici 3 méthodes. Lisez la suite pour voir ce que vous pouvez utiliser. 
Méthode 1 : compter les mots, y compris les textes des zones de texte, des notes de bas de page et des notes de fin
Par défaut, Word compte tous les mots qui apparaissent sur le document, y compris les textes des zones de texte et les mots des notes de bas de page et des notes de fin.
- Avant toute chose, rendez-vous dans la barre d'état et cliquez sur « Mots » pour ouvrir la boîte « Nombre de mots ».
- Vous y verrez toutes sortes de statistiques. Assurez-vous d'avoir coché la case "Inclure les zones de texte, les notes de bas de page et les notes de fin".
- Cliquez ensuite sur "Fermer".
- Si vous ne trouvez pas la commande "Mots" dans la barre d'état, faites un clic droit dessus.
- Vérifiez ensuite le « Nombre de mots ».
Méthode 2 : exclure les textes des zones de texte, des notes de bas de page et des notes de fin du nombre de mots
C'est le contraire de la méthode 1. Il vous suffit donc de décocher la case "Inclure les zones de texte, les notes de bas de page et les notes de fin".
Méthode 3 : Exécuter une macro Word pour obtenir un nombre de mots distinct à partir des zones de texte, des notes de bas de page et des notes de fin
- Tout d'abord, activez la case "Word Count" en utilisant la méthode de la méthode 1 et assurez-vous que la case d'option est cochée.
- Appuyez ensuite sur "Alt + F11" pour ouvrir l'éditeur VBA.
- Insérez ensuite un nouveau module dans le projet "Normal" en cliquant d'abord sur "Normal".
- Et cliquez ensuite sur "Insérer".
- Choisissez ensuite "Module".
- Double-cliquez sur le module pour ouvrir la zone de codage et collez-y les codes suivants :
Sub SeparateCountNumberOfTextboxFootnoteEndnote()
Dim lTextboxWords As Long
Dim lTextboxChars As Long
Dim lDocumntWords As Long
Dim lDocumntChars As Long
Dim objTextboxShape As Shape
Dim objTemp As Dialog
Dim bDone As Boolean
Dim objRange As Range
Dim lFootnoteWords As Long
Dim lFootnoteChars As Long
Dim lEndnoteWords As Long
Dim lEndnoteChars As Long
Application.ScreenUpdating = False
Do
bDone = True
For Each objTextboxShape In ActiveDocument.Shapes
If objTextboxShape.Type = msoGroup Then
objTextboxShape.Ungroup
bDone = False
End If
Next objTextboxShape
Loop Until bDone
' Count the words and characters in the whole document.
Selection.HomeKey Unit:=wdStory
Set objTemp = Dialogs(wdDialogToolsWordCount)
objTemp.Update
objTemp.Execute
lDocumntWords = objTemp.Words
lDocumntChars = objTemp.Characters
With ActiveDocument
' Count the words and characters in all textboxes.
lTextboxWords = 0
lTextboxChars = 0
If ActiveDocument.Shapes.Count > 0 Then
For Each objTextboxShape In .Shapes
objTextboxShape.Select
objTemp.Execute
lTextboxWords = lTextboxWords + objTemp.Words
lTextboxChars = lTextboxChars + objTemp.Characters
Next objTextboxShape
Else
MsgBox ("There is no text box in this document")
End If
' Count the words and characters in all footnotes.
lFootnoteWords = 0
lFootnoteChars = 0
If ActiveDocument.Footnotes.Count > 0 Then
For Each objRange In .StoryRanges
If objRange.StoryType = wdFootnotesStory Then
objRange.Select
objTemp.Execute
lFootnoteWords = lFootnoteWords + objTemp.Words
lFootnoteChars = lFootnoteChars + objTemp.Characters
End If
Next objRange
Else
MsgBox ("There is no footnote in this document")
End If
' Count the words and characters in all endnotes.
lEndnoteWords = 0
lEndnoteChars = 0
If ActiveDocument.Endnotes.Count > 0 Then
For Each objRange In .StoryRanges
If objRange.StoryType = wdEndnotesStory Then
objRange.Select
objTemp.Execute
lEndnoteWords = lEndnoteWords + objTemp.Words
lEndnoteChars = lEndnoteChars + objTemp.Characters
End If
Next objRange
Else
MsgBox ("There is no Endnote in this document")
End If
End With
Application.ScreenUpdating = True
MsgBox (" In this document there are totally" & vbCr _
& Str(lDocumntWords) & " word(s) and" & Str(lDocumntChars) & " characters" & vbCr & vbCr _
& "Including:" & vbCr _
& Str(ActiveDocument.Shapes.Count) & " textboxes contain(s)" & vbCr _
& Str(lTextboxWords) & " word(s)," & Str(lTextboxChars) & " characters" & vbCr & vbCr _
& Str(ActiveDocument.Footnotes.Count) & " footnotes contain(s)" & vbCr _
& Str(lFootnoteWords) & " word(s)," & Str(lFootnoteChars) & " characters" & vbCr & vbCr _
& Str(ActiveDocument.Endnotes.Count) & " Endnotes contain(s)" & vbCr _
& Str(lEndnoteWords) & " word(s)," & Str(lEndnoteChars) & " characters")
End Sub
- Enfin, cliquez sur le bouton "Exécuter".
S'il n'y a pas de zone de texte, de note de bas de page ou de note de fin, vous recevrez une boîte de message comme celle-ci :
Cliquez simplement sur "OK" pour continuer. Ensuite, vous verrez une autre boîte, répertoriant tous les détails du nombre de mots.
Obtenez un outil de récupération
Étant donné que Word peut s'effondrer tout d'un coup, il est conseillé d'obtenir un produit de réparation avancé pour effectuer le travail de réparation. Un tel outil peut être une grande économie pour Mot corrompu. Par conséquent, prenez le temps d'en obtenir un dès que possible.
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 réparer xls et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com