2 Handige methoden om markeringskleur in uw Word-document te vervangen

In dit artikel laten we u graag 2 handige methoden zien om de markeringskleur in uw Word-document te vervangen.

Soms kunt u verschillende inhoud markeren met verschillende kleuren. Maar in tegenstelling tot lettertypekleur, kunt u "Zoeken en vervangen" niet gebruiken om teksten in een specifieke markeringskleur te zoeken en deze te vervangen door een andere.

Daarom hebben we een aantal tijdelijke oplossingen nodig. Hieronder volgen 2 manieren die beschikbaar zijn voor verschillende gevallen.

Methode 1: Vervang alle markeringskleuren door dezelfde

De markeringskleur die is gekoppeld aan het dialoogvenster "Zoeken en vervangen" is de kleur die momenteel is geselecteerd in het pictogram Markeren.

1. Allereerst, onder het tabblad "Home" en in de groep "Lettertype" klikt u op de vervolgkeuzeknop op de opdracht "Tekstmarkeringskleur". Kies een kleur waarin u alle markeringskleuren wilt wijzigen. We kiezen hier bijvoorbeeld voor "Heldergroen".
2. Druk vervolgens op "Ctrl + H" om het dialoogvenster "Zoeken en vervangen" te openen.
3. Plaats de cursor in het tekstvak "Zoeken naar".
4. Klik op "Meer" voor meer opties en klik op "Formatteren".
5. En kies "Markeren".
6. Plaats vervolgens de cursor in het vak "Vervangen door" en herhaal stap 4 en 5.
7. Klik ten slotte op "Alles vervangen".

Nu heb je alle markeringskleuren vervangen door heldergroen.

Methode 2: Vervang een specifieke markeringskleur door een andere

Om deze taak te volbrengen, is een macro vereist.

1. Druk allereerst op "Alt+F11" om de VBA-editor te openen.
2. Klik vervolgens op “Normaal” project in de linkerkolom.
3. Klik vervolgens op het tabblad "Invoegen" in de menubalk.
4. En kies "Module" in dat vervolgkeuzemenu.
5. Open de nieuwe module door te dubbelklikken.
6. Plak nu de volgende codes:

Sub ReplaceOneHighlightColorToAnother()
  Dim strFindColor As String
  Dim strReplaceColor As String
  Dim objDoc As Document
  Dim objRange As Range
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
 
  strFindColor = InputBox("Specify a color (enter the value):", "Specify Highlight Color")
  strReplaceColor = InputBox("Specify a new color (enter the value):", "New Highlight Color")
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .Highlight = True
 
      Do While .Execute
        If Selection.Range.HighlightColorIndex = strFindColor Then
          Set objRange = Selection.Range
          objRange.HighlightColorIndex = strReplaceColor
          Selection.Collapse wdCollapseEnd
        End If
      Loop
    End With
  End With
 
  Application.ScreenUpdating = True
End Sub

7. Klik vervolgens op de knop "Uitvoeren" of druk op "F5".
8. Voer vervolgens in het vak "Markeerkleur specificeren" een waarde in die de kleur vertegenwoordigt die moet worden vervangen. Om de overeenkomstige waarde van een specifieke kleur te krijgen, kunt u deze link bezoeken: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColorIndex
9. Als we bijvoorbeeld de gele kleur willen vervangen door heldergroen, voeren we "7" in het veld "Markeerkleur specificeren" in en klikken op "OK".
10. Voer vervolgens in het vak "Nieuwe markeringskleur" een waarde van de nieuwe kleur in en klik op "OK".

Hier is het mogelijke resultaat van het vervangen van geel door heldergroen.

Voorkom een ​​ramp met gegevensverlies

Word is zo'n geweldige hulp in ons dagelijkse werk. Daarom is het niet moeilijk voor te stellen welke catastrofe het kan veroorzaken als het instort. Om te voorkomen dat u kritieke gegevens verliest, kunt u een Word-oplossing tool vooraf. Met een dergelijk hulpprogramma bij de hand, hoeft u zich geen zorgen te maken over gegevensverlies.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder corrupte xlsx en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com