In questo articolo, siamo lieti di mostrarti 2 metodi utili per sostituire il colore di evidenziazione nel tuo documento Word.
A volte puoi evidenziare contenuti diversi con colori diversi. Ma a differenza del colore del carattere, non è possibile utilizzare "Trova e sostituisci" per trovare testi in un colore di evidenziazione specifico e sostituirlo con un altro.
Pertanto, avremo bisogno di alcune soluzioni alternative. Di seguito sono disponibili 2 modi per diversi casi.
Metodo 1: sostituisci tutti i colori di evidenziazione con lo stesso
Il colore di evidenziazione associato alla finestra di dialogo "Trova e sostituisci" è quello attualmente selezionato nell'icona Evidenzia.
- Prima di tutto, nella scheda "Home" e nel gruppo "Font", fai clic sul pulsante a discesa sul comando "Text Highlight Color". Scegli un colore a cui vuoi cambiare tutti i colori di evidenziazione. Ad esempio, qui scegliamo "Bright Green".
- Quindi premere "Ctrl + H" per attivare la finestra di dialogo "Trova e sostituisci".
- Posiziona il cursore all'interno della casella di testo "Trova cosa".
- Fai clic su "Altro" per visualizzare più opzioni e fai clic su "Formato".
- E scegli "Evidenzia".
- Quindi posiziona il cursore all'interno della casella "Sostituisci con" e ripeti i passaggi 4 e 5.
- Infine, fai clic su "Sostituisci tutto".
Ora hai sostituito tutti i colori di evidenziazione con il verde brillante.
Metodo 2: sostituire un colore di evidenziazione specifico con un altro
Per eseguire questa operazione, è necessaria una macro.
- Innanzitutto, premi “Alt + F11” per aprire l’editor VBA.
- Quindi fai clic sul progetto "Normale" nella colonna di sinistra.
- Quindi fare clic sulla scheda "Inserisci" nella barra dei menu.
- E scegli "Modulo" in quel menu a discesa.
- Aprire il nuovo modulo facendo doppio clic.
- Ora incolla i seguenti codici:
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
- Quindi fai clic sul pulsante "Esegui" o premi "F5".
- Quindi nella casella "Specifica colore di evidenziazione", inserisci un valore che rappresenta il colore da sostituire. Per ottenere il valore corrispondente di un colore specifico, puoi visitare questo link: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColorIndex
- Ad esempio, se vogliamo sostituire il colore giallo con il verde brillante, inseriamo "7" nella casella "Specifica colore di evidenziazione" e facciamo clic su "OK".
- Quindi nella casella "Nuovo colore di evidenziazione", inserisci un valore del nuovo colore e fai clic su "OK".
Ecco il possibile risultato della sostituzione del giallo con il verde brillante.
Evita il disastro della perdita di dati
La parola è un grande aiuto nel nostro lavoro quotidiano. Pertanto, non è difficile immaginare la catastrofe che può portare quando crolla. Per evitare di perdere dati critici, puoi procurarti un file Correzione della parola strumento in anticipo. Con una tale utilità a portata di mano, non dovresti preoccuparti della perdita di 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 xlsx corrotto and pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com