2 méthodes pour compter le nombre total de mots d'une langue dans un document Word multilingue

Dans l'article d'aujourd'hui, nous aimerions vous présenter 2 méthodes pour compter le nombre total de mots d'une langue dans un document Word multilingue.

De temps en temps, certains d'entre vous peuvent avoir la demande de modifier un document Word multilingue. Par conséquent, il y aura des moments où vous voudrez compter les mots pour une langue spécifique, mais seulement pour trouver Word incapable d'effectuer cette tâche.

Ensuite, notre objectif est de vous fournir 2 solutions utiles pour résoudre un tel problème.

Méthode 1 : Utilisez l'option "Recherche avancée"

1. Tout d'abord, cliquez sur le bouton triangle à l'envers derrière "Rechercher" dans le groupe "Édition" sous l'onglet "Accueil".     
2. Maintenant, dans la boîte de dialogue "Rechercher et remplacer", cliquez sur le bouton "Plus".
3. Et cochez la case "Rechercher des mots entiers uniquement".
4. Cliquez ensuite sur le bouton "Formater".
5. Choisissez ensuite "Langue".
6. Dans la boîte de dialogue « Rechercher la langue », recherchez et sélectionnez la langue cible, puis cliquez sur « OK ».
7. Revenons maintenant à la case "Rechercher et remplacer", cliquez sur "Rechercher dans" et choisissez "Document principal".
8. Ensuite, tous les mots anglais doivent être sélectionnés et vérifier le nombre de mots dans le coin inférieur gauche de l'écran. Nous pouvons voir que le nombre est 93.

Méthode 2 : exécuter la macro Word

1. Pour commencer, cliquez sur l'onglet « Développeur ».
2. Cliquez ensuite sur "Visual Basic" pour déclencher l'éditeur VBA. Si vous n'avez pas encore activé l'onglet "Développeur", appuyez sur "Alt + F11" à la place.
3. Cliquez ensuite sur "Normal" puis cliquez sur "Insérer".
4. Choisissez "Modules".
5. Et double-cliquez sur le nouveau module pour ouvrir l'espace de codage.
6. Collez-y ensuite les codes suivants :

Sub CountTotalWordsOfOneLanguage()
  Dim objRange As Range
  Dim nWords As Long
 
  ' Initialization
  Set objRange = ActiveDocument.Range
  nWords = 0
 
  ' Find all English words and do word count.
  With objRange.Find
    .LanguageID = wdFrench
    Do While .Execute
      nWords = nWords + objRange.ComputeStatistics(wdStatisticWords)
    Loop
  End With
 
  MsgBox nWords
End Sub

7. Enfin, cliquez sur le bouton "Exécuter".

Une boîte de message doit apparaître. Le nombre fait référence au nombre total de mots des textes français de ce document.

Remarque:

Dans la ligne de code ".LanguageID = wdFrançais", la "wdfrançais» signifie langue française. Pour personnaliser les codes pour une utilisation plus spécifique, vous pouvez remplacer l'ID de langue par la langue exacte que vous souhaitez. Et pour plus d'ID de langue, vous pouvez visiter : https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)

Gérer correctement les fichiers Word corrompus

De temps en temps, Word s'arrête ou se fige à cause de toutes sortes d'erreurs ou d'erreurs. Par exemple, si vous ne parvenez pas à sauvegarder régulièrement des fichiers, il existe une grande possibilité de perdre toutes les précieuses données. Et les 2 solutions de contournement restantes consistent soit à utiliser la fonction intégrée de Word, soit à obtenir un programme pour doc de réparationÉtant donné que la première solution ne semble pas fonctionner correctement la plupart du temps, il est conseillé d'opter pour un outil tiers.

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