2 Metode utile pentru a înlocui culoarea evidențierii în documentul Word

În acest articol, suntem încântați să vă arătăm 2 metode utile pentru a înlocui culoarea de evidențiere în documentul dvs. Word.

Uneori puteți evidenția conținuturi diferite cu culori diferite. Dar, spre deosebire de culoarea fontului, nu puteți utiliza „Găsiți și înlocuiți” pentru a găsi texte într-o anumită culoare de evidențiere și pentru a o înlocui cu alta.

Prin urmare, vom avea nevoie de câteva soluții. Mai jos sunt disponibile 2 moduri pentru cazuri diferite.

Metoda 1: Înlocuiți toate culorile de evidențiere cu aceeași

Culoarea de evidențiere asociată casetei de dialog „Găsiți și înlocuiți” este cea curentă selectată în pictograma Evidențiere.

1. În primul rând, în fila „Acasă” și în grupul „Font”, faceți clic pe butonul drop-down de pe comanda „Culoare evidențiere text”. Alegeți o culoare la care doriți să schimbați toate culorile de evidențiere. De exemplu, alegem „Verde strălucitor” aici.
2. Apoi apăsați „Ctrl+ H” pentru a declanșa caseta de dialog „Găsiți și înlocuiți”.
3. Pune cursorul în caseta de text „Găsiți ce”.
4. Faceți clic pe „Mai multe” pentru a afișa mai multe opțiuni și faceți clic pe „Format”.
5. Și alegeți „Evidențiați”.
6. Apoi plasați cursorul în caseta „Înlocuiți cu” și repetați pașii 4 și 5.
7. În cele din urmă, faceți clic pe „Înlocuiește tot”.

Acum ați înlocuit toate culorile evidențiate cu verde strălucitor.

Metoda 2: Înlocuiți o anumită culoare de evidențiere cu alta

Pentru a îndeplini această sarcină, este necesară o macrocomandă.

1. În primul rând și înainteost, apăsați „Alt+ F11” pentru a deschide editorul VBA.
2. Apoi faceți clic pe proiect „Normal” din coloana din stânga.
3. Apoi faceți clic pe fila „Inserare” din bara de meniu.
4. Și alegeți „Modul” din meniul derulant.
5. Deschideți noul modul făcând dublu clic.
6. Acum lipiți următoarele coduri:

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("Specificați o culoare", "Specify the Color", "Specify the Color" ) strReplaceColor = InputBox("Specificați o nouă culoare (introduceți valoarea):", "New Highlight Color") Cu selecție .HomeKey Unit:=wdStory With Selection.Find .Highlight = True Do While .Execute If Selection.Range.HighlightColorIndex = strFindColor Apoi Setați objRange = Selection.Range objRange.HighlightColorIndex = strReplaceColor Selection.Collapse wdCollapseEnd End If Bucle se termină cu End With Application.ScreenUpdating = True End Sub

7. Apoi faceți clic pe butonul „Run” sau apăsați „F5”.
8. Apoi, în caseta „Specify Highlight Color”, introduceți o valoare care reprezintă culoarea care trebuie înlocuită. Pentru a obține valoarea corespunzătoare a unei anumite culori, puteți accesa acest link: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColorIndex
9. De exemplu, dacă dorim să înlocuim culoarea galbenă cu verde strălucitor, introducem „7” în caseta „Specify Highlight Color” și facem clic pe „OK”.
10. Apoi, în caseta „New Highlight Color”, introduceți o valoare a noii culori și faceți clic pe „OK”.

Iată posibilul rezultat al înlocuirii galbenului cu verde strălucitor.

Evitați dezastrul de pierdere a datelor

Cuvântul este un ajutor atât de mare în munca noastră zilnică. Prin urmare, nu este greu de imaginat catastrofa pe care o poate aduce atunci când se prăbușește. Pentru a evita pierderea datelor critice, puteți obține un Corect de cuvinte instrument în avans. Cu un astfel de utilitar la îndemână, nu ar trebui să vă faceți griji cu privire la pierderea datelor.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv xlsx corupt și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com