2 Nyttige metoder til at erstatte fremhævningsfarve i dit Word-dokument

I denne artikel er vi glade for at vise dig 2 nyttige metoder til at erstatte fremhævningsfarven i dit Word-dokument.

Nogle gange kan du fremhæve andet indhold med forskellige farver. Men i modsætning til skriftfarve kan du ikke bruge "Find og erstat" til at finde tekster i en bestemt fremhævningsfarve og erstatte den med en anden.

Derfor har vi brug for nogle løsninger. Følgende er 2 måder til rådighed for forskellige sager.

Metode 1: Udskift alle fremhævningsfarver med den samme

Fremhævningsfarven, der er knyttet til "Find og erstat" -dialogboksen, er den aktuelle, der er valgt i Fremhæv-ikonet.

1. Først og fremmest skal du under fanen "Hjem" og i gruppen "Skrifttype" klikke på rullemenuen på kommandoen "Fremhæv tekst i tekst". Vælg en farve, som du vil ændre alle fremhævningsfarver til. For eksempel vælger vi “Bright Green” her.
2. Tryk derefter på "Ctrl + H" for at udløse dialogboksen "Find og erstat".
3. Sæt markøren i tekstfeltet "Find hvad".
4. Klik på "Mere" for at få flere muligheder, og klik på "Format".
5. Og vælg "Fremhæv".
6. Derefter anbringes markøren i feltet "Erstat med" og gentag trin 4 og 5.
7. Til sidst skal du klikke på "Erstat alle".

Nu har du erstattet alle markeringsfarver med den lyse grønne.

Metode 2: Udskift en bestemt fremhævningsfarve med en anden

For at udføre denne opgave kræves en makro.

1. Først og fremmest skal du trykke på “Alt+F11” for at åbne VBA-editoren.
2. Klik derefter på “Normal” -projektet i venstre kolonne.
3. Klik derefter på "Indsæt" -fanen på menulinjen.
4. Og vælg "Modul" i rullemenuen.
5. Åbn det nye modul ved at dobbeltklikke.
6. Indsæt nu følgende koder:

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 derefter på "Kør" -knappen eller tryk på "F5".
8. Indtast derefter en værdi, der repræsenterer den farve, der skal erstattes, i feltet "Angiv fremhævningsfarve". For at få den tilsvarende værdi af en bestemt farve kan du besøge dette link: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColorIndex
9. For eksempel, hvis vi vil erstatte den gule farve med lysegrøn, indtaster vi "7" i "Angiv fremhævningsfarve" og klik på "OK".
10. Indtast derefter en værdi af den nye farve i feltet "Ny fremhævningsfarve" og klik på "OK".

Her er det mulige resultat af at erstatte gul med lysegrøn.

Undgå katastrofe for datatab

Ord er sådan en stor hjælper i vores daglige arbejde. Derfor er det ikke svært at forestille sig den katastrofe, den kan medføre, når den kollapser. For at undgå at miste kritiske data kan du få fat i en Ordrettelse værktøj på forhånd. Med et sådant værktøj ved hånden skal du ikke behøver at bekymre dig om datatabet.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder korrupt xlsx og pdf produkter til reparation af software. For mere information besøg www.datanumen.com