3 méthodes pour compter le nombre de mots pour les sections de votre document Word

Dans cet article, il y aura 3 méthodes pour vous permettre de compter le nombre de mots pour les sections de votre document Word.

Il est facile d'obtenir le nombre total de mots d'un document. Mais il n'y a pas de fonction dans Word pour nous dire le nombre de mots d'une section. Et étant donné que nous préférons mettre le contenu du même sujet dans une section, comme organiser un chapitre tout en écrivant un livre, il nous est nécessaire de trouver des solutions de contournement pour obtenir le nombre de sections.   Voici 3 approches qui nécessitent que vous exécutiez une macro.

Méthode 1 : compter le nombre de mots pour la section actuelle

1. Tout d'abord, placez le curseur à l'intérieur d'une section cible.
2. Ensuite, vous devez ouvrir l'éditeur VBA dans Word. Cliquez sur "Développeur" puis sur la commande "Visual Basic". Si vous ne trouvez pas "Développeur" dans le ruban, appuyez sur "Alt + F11" à la place.
3. Cliquez ensuite sur le projet "Normal" dans la colonne de gauche.
4. Cliquez ensuite sur l'onglet "Insérer".
5. Dans ce menu déroulant, choisissez "Module".
6. Ouvrez un nouveau module en double-cliquant.
7. Maintenant, dans le module ouvert, collez les codes ci-dessous :

Sub CountWordsOfCurrentSection()
  MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
         & " words in current section.")
End Sub

8. Enfin, cliquez sur "Exécuter" ou appuyez sur "F5" pour exécuter les codes.

Vous recevrez une boîte de message indiquant le nombre total de sections en cours, comme ci-dessous :

Méthode 2 : compter le nombre de mots pour une section spécifique

Disons que vous avez travaillé sur un livre et défini chaque chapitre comme une section individuelle. Ensuite, pour savoir combien de mots vous avez écrits dans un chapitre, vous pouvez utiliser cette méthode.

1. Suivez les étapes ci-dessus pour installer et exécuter une macro.
2. Remplacez simplement macro par celle-ci :

Sub CountWordsOfSpecificSection()
  Dim strSecNum As String
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strSecNum = InputBox("Enter a section number here:", "Enter Section Number") 
  MsgBox ("There are " & objDoc.Sections(strSecNum).Range.ComputeStatistics(wdStatisticWords) _
          & " words in section " & strSecNum & ".")
  Application.ScreenUpdating = True
End Sub

3. Et en le faisant fonctionner, il y aura une zone de saisie. Dans la case "Entrez le numéro de section", entrez le numéro de section et cliquez sur "OK" pour continuer.

Le résultat est affiché dans une boîte de message.

Méthode 3 : compter le nombre de mots pour toutes les sections d'un document

Comme le sous-titre le suggère, cette méthode vous permettra d'obtenir le nombre total de mots de chaque section d'un document et de les répertorier dans une boîte de message.

1. Tout d'abord, ouvrez le document cible.
2. Néanmoins, vous devez répéter les étapes de la méthode 1 pour installer et exécuter la macro.
3. Et cette fois, changez avec cette macro :

Sub CountWordsOfEachSectionInDoc()
  Dim objDoc As Document
  Dim nNumberOfSection As Long
  Dim strText As String
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
  nNumberOfSection = objDoc.Sections.Count
 
  For nNumberOfSection = 1 To nNumberOfSection
    strText = strText & "There are " & objDoc.Sections(nNumberOfSection) _
              .Range.ComputeStatistics(wdStatisticWords) & " words in section " & nNumberOfSection & "; " _
              & vbNewLine
  Next nNumberOfSection
 
  MsgBox strText
 
  Application.ScreenUpdating = True
End Sub

Voici le résultat possible :

Enregistrer des données précieuses

Lorsque vous traitez toutes sortes de documents, vous devez garder à l'esprit leur sécurité. Comme vous ne pouvez jamais dire quand la prochaine perte de données se produira, il est suggéré de sauvegarder les fichiers importants. De plus, il est toujours bon de se procurer un outil qui peut récupérer doc, si seulement.

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