So entfernen Sie eine bestimmte Markierungsfarbe aus Ihrem Word-Dokument

Im heutigen Beitrag möchten wir Ihnen die effektive Methode vorstellen, mit der Sie eine bestimmte Hervorhebungsfarbe aus Ihrem Word-Dokument entfernen können.

In einem unserer vorherigen Artikel haben wir bereits darüber gesprochen, wie Hervorhebungsfarben entfernt werden können. Ausführliche Informationen finden Sie unter folgendem Link: 5 Methoden zum Entfernen von Hervorhebungen oder Schattierungen in Ihrem Word-Dokument

Schauen wir uns heute einen anderen Fall an, in dem ein Dokument mehrere Hervorhebungsfarben enthalten kann, um unterschiedliche Arten von Inhalten hervorzuheben. In einem solchen Fall erkennen die üblichen Methoden eine bestimmte Hervorhebungsfarbe nicht. Tatsächlich besteht die einzige schnelle und effektive Möglichkeit darin, ein Word-Makro auszuführen.

Schauen Sie sich jetzt den brüllenden Ansatz an.

Entfernen Sie eine bestimmte Markierungsfarbe über VBA

1. Klicken Sie als Erstes auf die Registerkarte „Entwicklertools“ im Menüband.
2. Klicken Sie dann auf "Visual Basic", um den VBA-Editor in Word auszulösen. Wenn Sie möglicherweise noch nicht über die Registerkarte "Entwickler" verfügen, können Sie stattdessen "Alt + F11" drücken.
3. Klicken Sie anschließend in der linken Spalte des Editors auf das Projekt „Normal“.
4. Klicken Sie dann in der Menüleiste auf die Registerkarte „Einfügen“.
5. Wählen Sie im Dropdown-Menü "Modul".
6. Doppelklicken Sie nun auf neues Modul, um den Codierungsbereich zu öffnen.
7. Fügen Sie das folgende Makro in das Modul ein:

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. Klicken Sie dann auf die Schaltfläche "Ausführen" oder drücken Sie "F5", um Codes auszuführen.
9. Als nächstes befindet sich das Feld „Farbe hervorheben“. Für jede Farbe gibt es einen Wert. Geben Sie einfach den Wert für die zu entfernende Markierungsfarbe ein.
10. Klicken Sie zu guter Letzt auf "OK", um fortzufahren.
11. Wenn dies erledigt ist, erhalten Sie ein solches Meldungsfeld:

Hier ist das mögliche Ergebnis:

Schützen Sie Ihre Daten

Die Datenintegrität kann leicht gefährdet sein. Es ist an der Zeit, präventive Maßnahmen zu ergreifen, bevor es zu spät ist. Die empfehlenswerteste Methode ist beispielsweise die regelmäßige Datensicherung. Stellen Sie sicher, dass Sie immer die aktuellste Version zur Hand haben, falls etwas Unerwartetes passiert. Andernfalls müssen Sie den gesamten Prozess der Datenwiederherstellung durchlaufen. Wortwiederherstellung Daten zurück zu bekommen.

Einführung des Autors:

Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich behebe xlsx und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX