2 façons rapides de compter le nombre de mots surlignés dans votre document Word

Dans cet article, nous aimerions vous proposer 2 façons rapides de compter le nombre de mots surlignés dans votre document Word.

De temps en temps, nous mettions en évidence des textes dans différents sujets avec des couleurs différentes. Si vous souhaitez compter le nombre total de mots en surbrillance, vous devez comprendre qu'il n'existe aucun moyen direct dans Word d'effectuer cette tâche. Mais comme solutions de contournement, vous pouvez choisir de choisir l'une des méthodes suivantes dans différents cas.

Méthode 1 : compter tous les mots en surbrillance dans différentes couleurs

1. Tout d'abord, appuyez sur "Alt + F11" pour ouvrir l'éditeur VBA dans Word.
2. Cliquez ensuite sur "Normal" dans la colonne de gauche.
3. Cliquez ensuite sur "Insérer" dans la barre de menu.
4. Dans le menu déroulant, choisissez "Module".

5. Et double-cliquez sur le nouveau module pour l'ouvrir.
6. Collez-y la macro suivante :

Sub CountAllWordsInHighlight()
    Dim objWord As Range
    Dim nHighlightedWords As Long
    Dim objDoc As Document
 
    Application.ScreenUpdating = False
    Set objDoc = ActiveDocument
 
    With Selection
         .HomeKey Unit:=wdStory
         With Selection.Find
              .Highlight = True
 
              Do While .Execute
                       nHighlightedWords = nHighlightedWords + Selection.Range.ComputeStatistics(wdStatisticWords)
                       Selection.Collapse wdCollapseEnd
              Loop
         End With
    End With
 
    MsgBox ("The total number of highlighted words is " & nHighlightedWords & " .")
 
    Application.ScreenUpdating = True
    Set objDoc = Nothing
End Sub

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

Une boîte de message s'affichera, comme ci-dessous :

Méthode 2 : compter tous les mots en surbrillance dans une couleur spécifique

Comme nous l'avons mentionné ci-dessus, plusieurs couleurs de surbrillance peuvent être appliquées à votre document Word. Par conséquent, il est assez difficile d'obtenir le nombre de mots en surbrillance dans une couleur particulière. Heureusement, nous pouvons toujours compter sur la macro pour effectuer une tâche personnalisée.

1. Tout d'abord, répétez les étapes de la méthode 1 pour installer et exécuter une macro.
2. Remplacez ensuite par cette macro :

Sub CountWordsInASpecificHighlightColor()
    Dim objDoc As Document
    Dim objWord As Object
    Dim nHighlightedWords As Long
    Dim strHighlightColor As String
 
    Application.ScreenUpdating = False
    Set objDoc = ActiveDocument
    nHighlightedWords = 0
    strHighlightColor = InputBox("Choose a Highlight colour (enter the value):" & vbNewLine & _
      vbTab & "Auto" & vbTab & vbTab & "0" & vbNewLine & _
      vbTab & "Black" & vbTab & vbTab & "1" & vbNewLine & _
      vbTab & "Blue" & vbTab & vbTab & "2" & vbNewLine & _
      vbTab & "BrightGreen" & vbTab & "4" & vbNewLine & _
      vbTab & "DarkBlue" & vbTab & vbTab & "9" & vbNewLine & _
      vbTab & "DarkRed" & vbTab & vbTab & "13" & vbNewLine & _
      vbTab & "DarkYellow" & vbTab & "14" & vbNewLine & _
      vbTab & "Gray25" & vbTab & vbTab & "16" & vbNewLine & _
      vbTab & "Gray50" & vbTab & vbTab & "15" & vbNewLine & _
      vbTab & "Green" & vbTab & vbTab & "11" & vbNewLine & _
      vbTab & "Pink" & vbTab & vbTab & "5" & vbNewLine & _
      vbTab & "Red" & vbTab & vbTab & "6" & vbNewLine & _
      vbTab & "Teal" & vbTab & vbTab & "10" & vbNewLine & _
      vbTab & "Turquoise" & vbTab & "3" & vbNewLine & _
      vbTab & "Violet" & vbTab & vbTab & "12" & vbNewLine & _
      vbTab & "White" & vbTab & vbTab & "8" & vbNewLine & _
      vbTab & "Yellow" & vbTab & vbTab & "7", "Pick Highlight Color")
 
    For Each objWord In objDoc.Words
        If objWord.HighlightColorIndex = strHighlightColor Then
           nHighlightedWords = nHighlightedWords + 1
        End If
    Next objWord
 
    MsgBox ("The number of highlighted words is " & nHighlightedWords & " .")
 
    Application.ScreenUpdating = True
    Set objDoc = Nothing
End Sub

3. Ensuite, dans la case "Choisir la couleur de surbrillance", entrez une valeur de couleur et cliquez sur "OK". Par exemple, ici nous entrons « 7 », représentant la couleur jaune.
4. Voici maintenant le résultat :

Résoudre intelligemment le problème de corruption de documents

De temps en temps, vous pouvez rencontrer Dégâts de mots. Le pire, c'est que cela peut conduire à des documents cassés. Bien que vous puissiez utiliser la fonctionnalité intégrée de Word pour récupérer votre document, vous pouvez également recourir à un autre choix intelligent qui consiste à obtenir un outil de réparation pour récupérer vos données en un minimum de temps.

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