Come rimuovere un colore di evidenziazione specifico dal documento di Word

Nel post di oggi, siamo lieti di condividere con voi un metodo efficace per rimuovere uno specifico colore di evidenziazione da un documento Word.

In uno dei nostri articoli precedenti, abbiamo già parlato dei modi per rimuovere i colori di evidenziazione. Per informazioni dettagliate è possibile fare riferimento a questo link: 5 metodi per rimuovere l'evidenziazione o l'ombreggiatura nel documento di Word

Oggi, diamo un'occhiata a un altro caso in cui un documento può contenere più colori di evidenziazione per far risaltare diversi tipi di contenuto. In tal caso, i metodi usuali non riescono a riconoscere un colore di evidenziazione specifico. In effetti, l'unico modo rapido ed efficace è eseguire una macro di Word.

Ora dai un'occhiata all'approccio muggito.

Rimuovi un colore di evidenziazione specifico tramite VBA

1. Innanzitutto, fai clic sulla scheda "Sviluppatore" nella barra multifunzione.
2. Quindi fare clic su "Visual Basic" per attivare l'editor VBA in Word. E considerando che potresti non avere ancora disponibile la scheda "Sviluppatore", puoi invece premere "Alt + F11".
3. Quindi fai clic sul progetto "Normale" nella colonna di sinistra nell'editor.
4. Quindi fare clic sulla scheda "Inserisci" nella barra dei menu.
5. Nel menu a discesa, scegli "Modulo".
6. Ora fai doppio clic sul nuovo modulo per aprire l'area di codifica.
7. Incolla la seguente macro sul modulo:

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. Quindi fare clic sul pulsante "Esegui" o premere "F5" per eseguire i codici.
9. Successivamente, c'è la casella "Colore evidenziato". C'è un valore per ogni colore. Basta inserire il valore relativo al colore di evidenziazione da rimuovere.
10. Ultimo ma non meno importante, fai clic su "OK" per procedere.
11. Al termine, riceverai una finestra di messaggio del genere:

Ecco il possibile risultato:

Mantieni i tuoi dati al sicuro

L'integrità dei dati può essere facilmente compromessa. È ora di prendere provvedimenti preventivi prima che sia troppo tardi. Ad esempio, il metodo più consigliato è quello di eseguire regolarmente il backup dei file. Assicurati sempre di avere la versione più recente a cui ricorrere in caso di imprevisti. Altrimenti, dovrai passare attraverso il Recupero di parole per recuperare i dati.

Introduzione dell'autore:

Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui correggere xlsx and pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com