I denne artikkelen er vi glade for å vise deg 2 nyttige metoder for å erstatte uthevingsfargen i Word-dokumentet ditt.
Noen ganger kan du fremheve forskjellig innhold med forskjellige farger. Men i motsetning til skriftfarge, kan du ikke bruke "Finn og erstatt" for å finne tekster i en bestemt uthevingsfarge og erstatte den med en annen.
Derfor kommer vi til å trenge noen løsninger. Følgende er 2 tilgjengelige måter for forskjellige saker.
Metode 1: Erstatt alle høylysfarger med den samme
Uthevingsfargen knyttet til "Finn og erstatt"-dialogboksen er den gjeldende fargen som er valgt i uthevingsikonet.
- Først av alt, under "Hjem"-fanen og i "Skrift"-gruppen, klikk på rullegardinknappen på kommandoen "Tekstfremhevingsfarge". Velg en farge du vil endre alle uthevingsfarger til. For eksempel velger vi "Bright Green" her.
- Trykk deretter "Ctrl + H" for å utløse "Finn og erstatt"-dialogboksen.
- Plasser markøren i tekstboksen "Finn hva".
- Klikk "Mer" for å få frem flere alternativer og klikk "Formater".
- Og velg "Uthev".
- Sett deretter markøren i "Erstatt med"-boksen og gjenta trinn 4 og 5.
- Til slutt klikker du på "Erstatt alle".
Nå har du byttet ut alle høylysfarger med den knallgrønne.
Metode 2: Erstatt en spesifikk høylysfarge med en annen
For å utføre denne oppgaven kreves en makro.
- Først og fremstost, trykk "Alt+ F11" for å åpne VBA-redigering.
- Klikk deretter på "Normal" prosjekt i venstre kolonne.
- Klikk deretter på "Sett inn"-fanen på menylinjen.
- Og velg "Modul" på den rullegardinmenyen.
- Åpne den nye modulen ved å dobbeltklikke.
- Lim inn følgende koder:
Sub ReplaceOneHighlightColorToAnother() Dim strFindColor As String Dim strReplaceColor As String Dim objDoc As Document Dim objRange As Range Application.ScreenUpdating = False Sett objDoc = ActiveDocument strFindColor = InputBox("Spesifiser en farge ("Spesifiser verdien):" ) strReplaceColor = InputBox("Spesifiser en ny farge (skriv inn verdien):", "New Highlight Color") Med utvalg .HomeKey Unit:=wdStory With Selection.Find .Highlight = True Do While .Execute If Selection.Range.HighlightColorIndex = strFindColor Sett deretter objRange = Selection.Range objRange.HighlightColorIndex = strReplaceColor Selection.Collapse wdCollapseEnd End If Loop End With End With Application.ScreenUpdating = True End Sub
- Klikk deretter på "Kjør"-knappen eller trykk på "F5".
- Angi deretter en verdi som representerer fargen som skal erstattes i boksen "Spesifiser uthevingsfarge". For å få den tilsvarende verdien av en bestemt farge, kan du besøke denne lenken: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColorIndex
- For eksempel, hvis vi ønsker å erstatte den gule fargen med lys grønn, skriver vi "7" i "Spesifiser uthevingsfarge"-boksen og klikker "OK".
- Deretter skriver du inn en verdi for den nye fargen i "New Highlight Color"-boksen og klikker "OK".
Her er det mulige resultatet av å erstatte gul med knallgrønn.
Unngå datatapkatastrofe
Word er en så stor hjelper i vårt daglige arbeid. Derfor er det ikke vanskelig å forestille seg hvilken katastrofe det kan føre med seg når det kollapser. For å unngå å miste kritiske data kan du få tak i en Ordretting verktøy på forhånd. Med et slikt verktøy for hånden, bør du ikke trenger å bekymre deg for tap av data.
Forfatterintroduksjon:
Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert korrupt xlsx og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med