2 korisne metode za zamjenu istaknute boje u vašem Word dokumentu

U ovom članku sa zadovoljstvom vam možemo pokazati 2 korisne metode za zamjenu boje isticanja u vašem Word dokumentu.

Ponekad možete istaknuti različite sadržaje različitim bojama. Ali za razliku od boje fonta, ne možete upotrijebiti "Pronađi i zamijeni" za pronalaženje tekstova u određenoj istaknutoj boji i zamjenu drugom.

Stoga će nam trebati neka rješenja. Slijede 2 dostupna načina za različite slučajeve.

Metoda 1: Zamijenite sve istaknute boje istom

Boja isticanja povezana s dijaloškim okvirom "Pronađi i zamijeni" trenutačno je odabrana u ikoni za isticanje.

1. Prije svega, pod karticom "Početna" iu grupi "Font", kliknite na padajući gumb na naredbu "Boja isticanja teksta". Odaberite boju u koju želite promijeniti sve istaknute boje. Na primjer, ovdje biramo "Bright Green".
2. Zatim pritisnite “Ctrl+ H” za pokretanje dijaloškog okvira “Pronađi i zamijeni”.
3. Postavite pokazivač unutar tekstnog okvira "Pronađi što".
4. Kliknite "Više" da biste prikazali više opcija i kliknite "Format".
5. I odaberite "Istakni".
6. Zatim postavite kursor unutar okvira "Zamijeni sa" i ponovite korake 4 i 5.
7. Na kraju kliknite "Zamijeni sve".

Sada ste zamijenili sve istaknute boje svijetlozelenom.

Metoda 2: Zamijenite određenu boju isticanja drugom

Da biste izvršili ovaj zadatak, potreban je makro.

1. Prvo i najvažnije, pritisnite "Alt + F11" za otvaranje VBA editora.
2. Zatim kliknite "Normalni" projekt u lijevom stupcu.
3. Zatim kliknite karticu "Umetni" na traci izbornika.
4. I odaberite "Modul" na tom padajućem izborniku.
5. Otvorite novi modul duplim klikom.
6. Sada zalijepite sljedeće kodove:

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. Zatim kliknite gumb "Pokreni" ili pritisnite "F5".
8. Zatim u okvir "Navedite boju za isticanje" unesite vrijednost koja predstavlja boju koju treba zamijeniti. Da biste dobili odgovarajuću vrijednost određene boje, možete posjetiti ovu vezu: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColorIndex
9. Na primjer, ako žutu boju želimo zamijeniti svijetlozelenom, u polje "Specify Highlight Color" upisujemo "7" i kliknemo "OK".
10. Zatim u okviru "Nova boja isticanja" unesite vrijednost nove boje i kliknite "U redu".

Evo mogućeg ishoda zamjene žute svijetlozelenom.

Izbjegnite katastrofu gubitka podataka

Riječ je tako veliki pomoćnik u našem svakodnevnom radu. Stoga nije teško zamisliti kakvu katastrofu može donijeti kada se sruši. Kako biste izbjegli gubitak kritičnih podataka, možete nabaviti a Popravak riječi alat unaprijed. S takvim uslužnim programom pri ruci ne biste trebali brinuti o gubitku podataka.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući pokvaren xlsx i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com