Cum să eliminați o anumită culoare de evidențiere din documentul Word

În p. de astăziost, suntem bucuroși să vă împărtășim modalitatea eficientă de a elimina o anumită culoare de evidențiere din documentul dvs. Word.

Într-unul dintre articolele noastre anterioare, am vorbit deja despre modalitățile de a elimina culorile evidențiate. Pentru informații detaliate, puteți consulta acest link: 5 metode de a elimina evidențierea sau umbrirea din documentul Word

Astăzi, să ne uităm la un alt caz în care un document poate conține mai multe culori de evidențiere pentru a evidenția diferite tipuri de conținut. Într-un astfel de caz, modurile obișnuite nu reușesc să recunoască o anumită culoare de evidențiere. De fapt, singura modalitate rapidă și eficientă este să rulați o macrocomandă Word.

Acum aruncați o privire la abordarea urloasă.

Eliminați o anumită culoare de evidențiere prin VBA

1. În primul rând și înainteost, faceți clic pe fila „Dezvoltator” din Panglică.
2. Apoi faceți clic pe „Visual Basic” pentru a declanșa editorul VBA în Word. Și având în vedere că este posibil să nu aveți încă disponibilă fila „Dezvoltator”, puteți apăsa în schimb „Alt+ F11”.
3. Apoi faceți clic pe proiect „Normal” în coloana din stânga din editor.
4. Apoi faceți clic pe fila „Inserare” din bara de meniu.
5. În meniul derulant, alegeți „Modul”.
6. Acum dublu clic pe modul nou pentru a deschide zona de codare.
7. Lipiți următoarea macrocomandă pe modul:

Sub RemoveSpecificHighlightColor() Dim objDoc As Document Dim objRange As Range Dim strHighlightColor As String Application.ScreenUpdating = False Set objDoc = ActiveDocument strHighlightColor = InputBox("Alegeți o culoare de evidențiere pentru a elimina (introduceți valoarea):" & "vbLineab" Auto" & vbTab & vbTab & "0" & ​​vbNewLine & _ vbTab & "Negru" & vbTab & vbTab & "1" & vbNewLine & _ vbTab & "Albastru" & vbTab & vbTab & "2" & vbNewLine & _ vbTab & „BrightGreen” și vbTab și „4” și vbNewLine și _ vbTab și „DarkBlue” și vbTab și vbTab și „9” și vbNewLine și _ vbTab și „DarkRed” și vbTab și vbTab și „13” și vbNewLine și „_ DarkYellow" & vbTab & "14" & vbNewLine & _ vbTab & "Gray25" & vbTab & vbTab & "16" & vbNewLine & _ vbTab & "Gray50" & vbTab & vbTab & "15" & vbNewLine & "_ vbT " & vbTab & vbTab & "11" & vbNewLine & _ vbTab & "Roz" & 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 & "Galben" & vbTab & vbTab & "7", "Evidențiere culoare") Cu selecție .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 ("Aplicația de evidențiere aleasă a fost eliminată în documentul.") .ScreenUpdating = True Set objDoc = Nimic End Sub

8. Apoi faceți clic pe butonul „Run” sau apăsați „F5” pentru a executa coduri.
9. În continuare, există caseta „Culoare de evidențiere”. Există o valoare pentru fiecare culoare. Doar introduceți valoarea aferentă culorii de evidențiere care trebuie eliminată.
10. Nu în ultimul rând, faceți clic pe „OK” pentru a continua.
11. Când este gata, veți primi o astfel de casetă de mesaj:

Iată rezultatul posibil:

Păstrați-vă datele în siguranță

Integritatea datelor poate fi ușor compromisă. Este timpul să luăm măsuri preventive înainte ca totul să fie prea târziu. De exemplu, most modalitatea recomandată este să faceți copii de siguranță ale fișierelor în mod regulat. Asigurați-vă întotdeauna că aveți cea mai recentă versiune la care să apelați în timp ce se întâmplă ceva neașteptat. În caz contrar, va trebui să treceți prin Recuperarea cuvintelor pentru a recupera datele.

Introducerea autorului:

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