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

I dagens sost, vi er glade for å dele med deg den effektive måten å fjerne en spesifikk uthevingsfarge fra Word-dokumentet ditt.

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.

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

Fjern en spesifikk høylysfarge via VBA

1. Først og fremstost, klikk på «Utvikler»-fanen på 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.
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("Velg en fremhevingsfarge å fjerne (skriv inn verdien):" & "vbLine" 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 & _ vb DarkYellow" & vbTab & "14" & vbNewLine & _ vbTab & "Gray25" & vbTab & vbTab & "16" & vbNewLine & _ vbTab & "Gray50" & vbTab & vbTab & "15" & vbNewLine & _GreenT " & 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") Med utvalg .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. .ScreenUpdating = True Set objDoc = Ingenting End Sub

8. Klikk deretter på "Kjør"-knappen eller trykk på "F5" for å utføre koder.
9. Deretter er det "Høydefarge"-boksen. Det er en verdi for hver farge. Bare skriv inn verdien knyttet til uthevingsfargen som skal fjernes.
10. Sist men ikke minst, klikk "OK" for å fortsette.
11. Når det er gjort, vil du motta en slik meldingsboks:

Her er det mulige resultatet:

Hold dataene dine trygge

Dataintegriteten kan lett kompromitteres. Det er på tide å ta forebyggende tiltak før alt er for sent. For eksempel, most anbefalt måte er å sikkerhetskopiere filer regelmessig. Sørg alltid for at du har den nyeste versjonen å ty til mens 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