Slik fjerner du en bestemt høylysfarge fra Word-dokumentet ditt

Word-løsninger September 28, 2025

I dagens innlegg deler vi gjerne den effektive måten å fjerne en bestemt uthevingsfarge fra Word-dokumentet ditt på.

I en av våre tidligere artikler har vi allerede snakket om måtene å fjerne høylysfarger på. For detaljert informasjon, kan du se denne lenken: 5 metoder for å fjerne utheving eller skyggelegging i Word-dokumentet ditt

La oss i dag se på et annet tilfelle at et dokument kan inneholde flere høylysfarger for å skille seg ut forskjellige typer innhold. I et slikt tilfelle unnlater de vanlige måtene å gjenkjenne en spesifikk høylysfarge. Faktisk er den eneste raske og effektive måten å kjøre en Word-makro.Fjern en bestemt uthevingsfarge fra Word-dokumentet

Ta nå en titt på brølende tilnærming.

Fjern en spesifikk høylysfarge via VBA

  1. Først og fremst, klikk på "Utvikler"-fanen i båndet.
  2. Klikk deretter "Visual Basic" for å utløse VBA-editoren i Word. Og med tanke på at du kanskje ikke har «Utvikler»-fanen tilgjengelig ennå, kan du trykke på «Alt+ F11» i stedet.
  3. Klikk deretter på "Normal" prosjekt i venstre kolonne i redigeringsprogrammet.
  4. Klikk deretter på "Sett inn"-fanen på menylinjen.
  5. Velg "Modul" i rullegardinmenyen.Klikk "Normal" -> Klikk "Sett inn" -> Klikk "Modul"
  6. Dobbeltklikk nå på ny modul for å åpne kodeområdet.
  7. Lim inn følgende makro på modulen:
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. Klikk deretter på "Kjør"-knappen eller trykk på "F5" for å utføre koder.Lim inn makro-> Klikk "Kjør"
  2. Deretter er det "Høydefarge"-boksen. Det er en verdi for hver farge. Bare skriv inn verdien knyttet til uthevingsfargen som skal fjernes.
  3. Sist men ikke minst, klikk "OK" for å fortsette.Skriv inn fargeverdi-> klikk "OK"
  4. Når det er gjort, vil du motta en slik meldingsboks:Resultatboks

Her er det mulige resultatet:Resultat

Hold dataene dine trygge

Dataintegriteten kan lett bli kompromittert. Det er på tide å ta forebyggende tiltak før alt er for sent. For eksempel er den mest anbefalte måten å sikkerhetskopiere filer regelmessig. Sørg alltid for at du har den nyeste versjonen å ty til hvis noe uventet skjer. Ellers må du gå gjennom Ordgjenoppretting for å få data tilbake.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert fikse xlsx og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.