Comment supprimer une couleur de surbrillance spécifique de votre document Word

Dans l'article d'aujourd'hui, nous sommes heureux de partager avec vous une méthode efficace pour supprimer une couleur de surbrillance spécifique de votre document Word.

Dans l'un de nos articles précédents, nous avons déjà parlé des moyens de supprimer les couleurs de surbrillance. Pour des informations détaillées, vous pouvez vous référer à ce lien : 5 méthodes pour supprimer la surbrillance ou l'ombrage dans votre document Word

Aujourd'hui, examinons un autre cas où un document peut contenir plusieurs couleurs de surbrillance pour faire ressortir différents types de contenu. Dans un tel cas, les méthodes habituelles ne reconnaissent pas une couleur de surbrillance spécifique. En fait, le seul moyen rapide et efficace consiste à exécuter une macro Word.

Jetez maintenant un coup d'œil à l'approche ci-dessous.

Supprimer une couleur de surbrillance spécifique via VBA

1. Avant toute chose, cliquez sur l'onglet « Développeur » dans le ruban.
2. Cliquez ensuite sur "Visual Basic" pour déclencher l'éditeur VBA dans Word. Et étant donné que l'onglet "Développeur" n'est peut-être pas encore disponible, vous pouvez appuyer sur "Alt + F11" à la place.
3. Cliquez ensuite sur le projet "Normal" dans la colonne de gauche de l'éditeur.
4. Cliquez ensuite sur l'onglet "Insérer" dans la barre de menu.
5. Dans le menu déroulant, choisissez "Module".
6. Maintenant, double-cliquez sur nouveau module pour ouvrir la zone de codage.
7. Collez la macro suivante sur le module :

Sub RemoveSpecificHighlightColor()
  Dim objDoc As Document
  Dim objRange As Range
  Dim strHighlightColor As String
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strHighlightColor = InputBox("Choose a Highlight colour to remove (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", "Highlight Color")
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .Highlight = True
 
      Do While .Execute
        If Selection.Range.HighlightColorIndex = strHighlightColor Then
          Set objRange = Selection.Range
          objRange.HighlightColorIndex = wdNoHighlight
          Selection.Collapse wdCollapseEnd
        End If
      Loop
    End With
  End With
 
  MsgBox ("The chosen highlight color has been removed in the document.")
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

8. Cliquez ensuite sur le bouton "Exécuter" ou appuyez sur "F5" pour exécuter les codes.
9. Ensuite, il y a la case "Couleur de surbrillance". Il y a une valeur pour chaque couleur. Entrez simplement la valeur liée à la couleur de surbrillance à supprimer.
10. Enfin, cliquez sur "OK" pour continuer.
11. Quand c'est fait, vous recevrez une telle boîte de message :

Voici le résultat possible :

Protégez vos données

L'intégrité des données peut être facilement compromise. Il est temps d'agir préventivement avant qu'il ne soit trop tard. Par exemple, la méthode la plus recommandée consiste à sauvegarder régulièrement vos fichiers. Assurez-vous toujours de disposer de la dernière version en cas d'imprévu. Sinon, vous devrez procéder à une restauration complète. Récupération de mots pour récupérer les données.

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