In diesem Artikel zeigen wir Ihnen gerne zwei nützliche Methoden, um die Hervorhebungsfarbe in Ihrem Word-Dokument zu ersetzen.
Manchmal können Sie unterschiedliche Inhalte mit unterschiedlichen Farben hervorheben. Im Gegensatz zur Schriftfarbe können Sie das Suchen und Ersetzen jedoch nicht verwenden, um Texte in einer bestimmten Hervorhebungsfarbe zu finden und durch eine andere zu ersetzen.
Daher werden wir einige Problemumgehungen benötigen. Es folgen zwei Möglichkeiten für verschiedene Fälle.
Methode 1: Ersetzen Sie alle Markierungsfarben durch dieselbe
Die dem Dialogfeld „Suchen und Ersetzen“ zugeordnete Hervorhebungsfarbe ist die aktuelle Farbe, die im Hervorhebungssymbol ausgewählt wurde.
- Klicken Sie zunächst auf der Registerkarte "Home" und in der Gruppe "Font" auf die Dropdown-Schaltfläche des Befehls "Text Highlight Color". Wählen Sie eine Farbe aus, in die Sie alle Hervorhebungsfarben ändern möchten. Zum Beispiel wählen wir hier „Hellgrün“.
- Drücken Sie dann "Strg + H", um das Dialogfeld "Suchen und Ersetzen" auszulösen.
- Setzen Sie den Cursor in das Textfeld „Find what“.
- Klicken Sie auf "Mehr", um weitere Optionen anzuzeigen, und klicken Sie auf "Formatieren".
- Und wählen Sie "Hervorheben".
- Setzen Sie als nächstes den Cursor in das Feld „Ersetzen durch“ und wiederholen Sie die Schritte 4 und 5.
- Klicken Sie abschließend auf "Alle ersetzen".
Jetzt haben Sie alle Hervorhebungsfarben durch das helle Grün ersetzt.
Methode 2: Ersetzen Sie eine bestimmte Hervorhebungsfarbe durch eine andere
Um diese Aufgabe auszuführen, ist ein Makro erforderlich.
- In erster LinieostDrücken Sie „Alt + F11“, um den VBA-Editor zu öffnen.
- Klicken Sie anschließend in der linken Spalte auf "Normal".
- Klicken Sie dann in der Menüleiste auf die Registerkarte „Einfügen“.
- Und wählen Sie "Modul" in diesem Dropdown-Menü.
- Öffnen Sie das neue Modul per Doppelklick.
- Fügen Sie nun folgende Codes ein:
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
- Klicken Sie anschließend auf die Schaltfläche "Ausführen" oder drücken Sie "F5".
- Geben Sie dann im Feld „Hervorhebungsfarbe angeben“ einen Wert ein, der die zu ersetzende Farbe darstellt. Um den entsprechenden Wert einer bestimmten Farbe zu erhalten, können Sie diesen Link besuchen: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColorIndex
- Wenn wir beispielsweise die gelbe Farbe durch hellgrün ersetzen möchten, geben wir im Feld "Hervorhebungsfarbe angeben" "7" ein und klicken auf "OK".
- Geben Sie dann im Feld "Neue Hervorhebungsfarbe" einen Wert für die neue Farbe ein und klicken Sie auf "OK".
Hier ist das mögliche Ergebnis des Ersetzens von Gelb durch hellgrün.
Vermeiden Sie Datenverlustkatastrophen
Word ist ein großartiger Helfer in unserer täglichen Arbeit. Daher ist es nicht schwer, sich die Katastrophe vorzustellen, die sie mit sich bringen kann, wenn sie zusammenbricht. Um den Verlust kritischer Daten zu vermeiden, können Sie a Wordfix Werkzeug im Voraus. Mit einem solchen Dienstprogramm sollten Sie sich keine Sorgen über den Datenverlust machen müssen.
Einführung des Autors:
Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich korruptes xlsx , pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX