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

În postarea de astăzi, suntem încântați să vă împărtășim modalitatea eficientă de a elimina o anumită culoare de evidențiere din documentul 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, 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("Choose a Highlight colour to remove (enter the value):" & vbNewLine & _
                      vbTab & "Auto" & vbTab & vbTab & "0" & vbNewLine & _
                      vbTab & "Black" & vbTab & vbTab & "1" & vbNewLine & _
                      vbTab & "Blue" & vbTab & vbTab & "2" & vbNewLine & _
                      vbTab & "BrightGreen" & vbTab & "4" & vbNewLine & _
                      vbTab & "DarkBlue" & vbTab & vbTab & "9" & vbNewLine & _
                      vbTab & "DarkRed" & vbTab & vbTab & "13" & vbNewLine & _
                      vbTab & "DarkYellow" & vbTab & "14" & vbNewLine & _
                      vbTab & "Gray25" & vbTab & vbTab & "16" & vbNewLine & _
                      vbTab & "Gray50" & vbTab & vbTab & "15" & vbNewLine & _
                      vbTab & "Green" & vbTab & vbTab & "11" & vbNewLine & _
                      vbTab & "Pink" & 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 & "Yellow" & vbTab & vbTab & "7", "Highlight Color")
  With Selection
    .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 ("The chosen highlight color has been removed in the document.")
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
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ă luați măsuri preventive înainte să fie prea târziu. De exemplu, cea mai recomandată metodă este să faceți copii de rezervă ale fișierelor în mod regulat. Asigurați-vă întotdeauna că aveți cea mai recentă versiune la care puteți apela atunci când 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