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, 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("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. 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