4 façons d'exclure des nombres dans votre document Word des statistiques de comptage de mots

Dans l'article d'aujourd'hui, nous vous présenterons 4 façons efficaces d'exclure les nombres de votre document Word des statistiques de nombre de mots.

Généralement, Word compte tous les types de textes, qu'il s'agisse de mots ou de chiffres. Mais, de temps en temps, nous sommes susceptibles de faire un décompte de mots en excluant certains éléments, comme les nombres. Par conséquent, nous sommes ravis de vous montrer 4 méthodes pour répondre à une telle exigence.

Avant toute chose, vous devez effectuer une sauvegarde du document cible et appliquer toutes les méthodes ci-dessous à votre copie.

Méthode 1 : Supprimer tous les numéros

1. Tout d'abord, ouvrez le fichier de copie et cliquez sur le bouton déroulant sur "Rechercher" sous l'onglet "Accueil".
2. Deuxièmement, choisissez "Recherche avancée" pour ouvrir la boîte de dialogue "Rechercher et remplacer".
3. Entrez ensuite « ^# » dans la zone de texte « Rechercher ». Si vous ne vous souvenez pas de cette chaîne, placez le curseur sur la zone de texte "Rechercher quoi" et cliquez sur "Plus", puis cliquez sur le bouton "Spécial".
4. Sélectionnez ensuite "N'importe quel chiffre".
5. Cliquez maintenant sur "Rechercher dans" et choisissez "Document principal".
6. Vous trouverez tous les numéros sont en sélection.
7. Appuyez sur "Supprimer".
8. Une fois que les chiffres ont disparu, vous pouvez remarquer que Word considère maintenant certains signes de ponctuation comme des mots. Vous devez donc également supprimer tous les signes de ponctuation. Ouvrez à nouveau la case "Rechercher et remplacer". Cette fois, saisissez "[,.;:'”””/\!\*\?\\]” (sans guillemets) dans la zone de texte “Rechercher quoi”.
9. Et n'oubliez pas de cocher la case "Utiliser des caractères génériques".
10. Répétez l'étape 5 pour trouver tous les signes de ponctuation.
11. Supprime-les.
12. Enfin, cliquez sur « Review » puis sur « Word Count » pour afficher le nombre total de textes.

Méthode 2 : formater tous les nombres en tant que textes masqués

Word n'inclut pas les textes masqués dans le nombre de mots, vous pouvez donc choisir de définir des nombres dans une mise en forme masquée.

1. Tout d'abord, répétez les 6 premières étapes de la méthode.
2. Au lieu de supprimer les numéros sélectionnés, appuyez sur "Ctrl + D" pour ouvrir la boîte "Police".
3. Cochez la case "Masqué" et cliquez sur "OK".
4. Ensuite, répétez les étapes 8 à 9 pour trouver tous les signes de ponctuation.
5. De même, suivez les étapes 2 et 3 pour mettre en forme les signes de ponctuation en tant que textes masqués.
6. Enfin, vérifiez le nombre total de mots.

Méthode 3 : exécuter la macro Word

La macro suivante effectuera automatiquement les étapes ci-dessus et vous renverra une boîte de message contenant le nombre total de mots à l'exclusion des nombres.

1. Pour commencer, appuyez sur "Alt + F11" dans Word pour ouvrir l'éditeur VBA.
2. Cliquez ensuite sur "Normal" dans la colonne de gauche.
3. Cliquez ensuite sur l'onglet "Insérer" et choisissez "Module".
4. Double-cliquez sur le module pour l'ouvrir et collez les codes ci-dessous :

Sub ExcludeNumbersFromWordCount()
  Dim objDoc As Document
  Dim nWord As Integer
 
  Set objDoc = ActiveDocument
 
  With Selection
    .HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "^#"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "[,.;:’" & ChrW(8221) & ChrW(8221) & """/\!\*\?\\]"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      .Execute
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
 
  nWord = objDoc.Range.ComputeStatistics(wdStatisticWords)
 
  MsgBox ("There are " & nWord & " words in this document.")
End Sub

5. Cliquez sur «Exécuter».

Vous recevrez une boîte de message, vous indiquant combien de mots il y a dans votre document, comme ci-dessous :

Méthode 4 : Exclure les nombres dans les tableaux du nombre de mots

Voici un besoin particulier d'exclure les nombres dans les tableaux du nombre de mots. La solution est d'exécuter une macro.

1. Installez et exécutez une macro comme indiqué ci-dessus dans la méthode 3.
2. Remplacez ensuite cette macro par celle-ci :

Sub ExcludeNumbersInTablesFromWordCount()
  Dim objDoc As Document, objNewDoc As Document
  Dim nWord As Integer, nWordInNewDoc As Integer, nWordInNewDocWithoutNum As Integer, nNumber As Integer
  Dim objTable As Table
  Dim objRange As Range
  Dim objParagraph As Paragraph
 
  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add
  nWord = objDoc.Range.ComputeStatistics(wdStatisticWords)
 
  For Each objTable In objDoc.Tables
    objTable.Range.Select
    Selection.Copy
 
    Set objRange = objNewDoc.Range
 
    objRange.Collapse Direction:=wdCollapseEnd
    objRange.PasteSpecial DataType:=wdPasteRTF
    objRange.Collapse Direction:=wdCollapseEnd
    objRange.Text = vbCr
  Next objTable
 
  objNewDoc.Activate
 
  For Each objParagraph In ActiveDocument.Paragraphs
    If objParagraph.Range.Style = "Caption" Then
      objParagraph.Range.Delete
    End If
  Next objParagraph
 
  nWordInNewDoc = objNewDoc.Range.ComputeStatistics(wdStatisticWords)
 
  With Selection
    .HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "^#"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "[,.;:’" & ChrW(8221) & ChrW(8221) & """/\!\*\?\\]"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      .Execute
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
 
  nWordInNewDocWithoutNum = objNewDoc.Range.ComputeStatistics(wdStatisticWords)
  nNumber = nWordInNewDoc - nWordInNewDocWithoutNum
  objDoc.Activate
  MsgBox ("There are " & nWord - nNumber & " words in this document, excluding numbers in tables.")
End Sub

Il y aura une boîte de message comme celle-ci :

Penser à l'avance

Étant donné que Word n'est pas infaillible, il est essentiel de prendre des mesures préventives avant qu'il ne soit trop tard. La meilleure solution consiste à sauvegarder vos documents, et ce, aussi souvent que possible. La sauvegarde d'un document peut ne prendre que quelques minutes, mais la récupération d'un document peut prendre des heures, voire des jours. docx corrompu. Alors pensez à l'avance pour vous faire gagner du temps et de l'argent.

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 Correctif Excel et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com