Hoe u een specifieke markeringskleur uit uw Word-document kunt verwijderen

Word-oplossingen 28 september 2025

In dit artikel delen we graag een effectieve manier om een ​​specifieke markeerkleur uit je Word-document te verwijderen.

In een van onze vorige artikelen hebben we het al gehad over de manieren om markeringskleuren te verwijderen. Voor gedetailleerde informatie kunt u deze link raadplegen: 5 methoden om markeringen of arcering in uw Word-document te verwijderen

Laten we vandaag eens kijken naar een ander geval dat een document meerdere markeringskleuren kan bevatten om verschillende soorten inhoud te onderscheiden. In dat geval wordt op de gebruikelijke manieren één specifieke accentkleur niet herkend. In feite is de enige snelle en effectieve manier om een ​​Word-macro uit te voeren.Verwijder een specifieke markeringskleur uit uw Word-document

Kijk nu eens naar de brullende aanpak.

Verwijder een specifieke markeringskleur via VBA

  1. Klik allereerst op het tabblad "Ontwikkelaar" in het lint.
  2. Klik vervolgens op "Visual Basic" om de VBA-editor in Word te activeren. En aangezien u misschien nog niet het tabblad "Ontwikkelaar" hebt, kunt u in plaats daarvan op "Alt + F11" drukken.
  3. Klik vervolgens op “Normaal” project in de linkerkolom in de editor.
  4. Klik vervolgens op het tabblad "Invoegen" in de menubalk.
  5. Kies "Module" in het vervolgkeuzemenu.Klik op "Normaal" -> Klik op "Invoegen" -> Klik op "Module"
  6. Dubbelklik nu op nieuwe module om het coderingsgedeelte te openen.
  7. Plak de volgende macro op de 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
  1. Klik vervolgens op de knop "Uitvoeren" of druk op "F5" om codes uit te voeren.Plak Macro-> Klik op "Uitvoeren"
  2. Vervolgens is er het vak "Markeringskleur". Voor elke kleur is er een waarde. Voer gewoon de waarde in die betrekking heeft op de markeringskleur die moet worden verwijderd.
  3. Als laatste, maar niet de minste, klik op "OK" om verder te gaan.Voer de kleurwaarde in-> Klik op "OK"
  4. Als het klaar is, ontvang je zo'n berichtvenster:Resultaatvak

Hier is het mogelijke resultaat:Resultaat

Houd uw gegevens veilig

De integriteit van gegevens kan gemakkelijk in gevaar komen. Het is tijd om preventieve maatregelen te nemen voordat het te laat is. De meest aanbevolen methode is bijvoorbeeld om regelmatig een back-up van uw bestanden te maken. Zorg er altijd voor dat u de meest recente versie hebt om op terug te vallen als er iets onverwachts gebeurt. Anders zult u een back-up moeten maken. Woordherstel om gegevens terug te krijgen.

Auteur Introductie:

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

Reacties zijn gesloten.