Nel post di oggi, siamo lieti di condividere con voi 2 metodi rapidi per estrarre testi dello stesso colore da un documento Word.
Di tanto in tanto, durante la formattazione su un documento Word, è probabile che applichiamo il colore del carattere per alcuni testi in modo da evidenziarli per maggiore attenzione. Di solito, queste parole colorate sono contenuti importanti che meritano di nuovo la tua recensione. Allora che ne dici di esportarli e ritirarli da qualche altra parte per un controllo chiaro in seguito?
Con particolare attenzione a questa richiesta, ti suggeriamo 2 scorciatoie veloci invece di infinite azioni di taglia e incolla.
Metodo 1: utilizzare la funzione "Trova".
- Prima di tutto, fai clic sulla scheda "Home".
- Quindi vai al gruppo "Modifica" per fare clic sul pulsante del triangolo capovolto accanto a "Trova".
- Quindi scegli "Ricerca avanzata" nell'elenco.
- Nella finestra di dialogo "Trova e sostituisci", posiziona il cursore nella casella di testo "Trova cosa" e cancella eventuali contenuti presenti.
- Quindi fai clic sul pulsante "Altro".
- Ora fai clic sul pulsante "Formato" e scegli "Font".
- Nella finestra di dialogo "Trova carattere", fai clic sul pulsante a discesa dietro "Colore carattere" per scegliere il colore esatto che assegni ai tuoi testi.
- Ricordati di fare clic su "OK".
- Ora torna alla casella "Trova e sostituisci" e fai clic su "Trova in".
- Infine, scegli "Documento principale".
A questo punto, tutti i testi del colore scelto saranno selezionati. Ora puoi premere "Ctrl+C" per copiarli e incollarli in un'altra posizione in un'unica operazione.
Metodo 2: eseguire una macro di Word
- Innanzitutto, fai clic sulla scheda "Sviluppatore".
- Quindi fare clic su "Visual Basic" per attivare l'editor VBA.
- Quindi fare clic su "Normale" e quindi su "Inserisci".
- Scegli "Modulo" nel menu.
- Quindi fare doppio clic sul modulo per attivare lo spazio di codifica.
- Codici successivi per incollare:
Sub ExtractColoredTexts()
Dim objDoc As Document, objDocAdd As Document
Dim objRange As Range
Set objDoc = ActiveDocument
Set objDocAdd = Documents.Add
objDoc.Activate
With Selection
.HomeKey Unit:=wdStory
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Font.Color = wdColorRed
.Text = ""
.Execute
End With
Do While .Find.Found
Set objRange = Selection.Range
objDocAdd.Range.InsertAfter objRange & vbCr
.Collapse wdCollapseEnd
.Find.Execute
Loop
End With
End Sub
- Ora fai clic sul pulsante "Esegui".
Ci sarà un nuovo documento aperto con tutti i testi estratti.
Nota: nella riga di codice ".Font.Color = wdColorRed", è necessario sostituire "wdColorRed" con il colore effettivo dei testi. Per riferimenti dettagliati, è possibile visitare questa pagina: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor
Affrontare il problema delle parole
La maggior parte di noi utilizza già frequentemente Word. Tuttavia, nonostante ciò, possiamo ancora imbatterci in alcuni problemi difficili, come il blocco di Word. Questo è senza dubbio un problema piuttosto serio, poiché i vostri file critici potrebbero essere a rischio. In tali circostanze, si consiglia di ottenere un Strumento di riparazione degli errori dei dati di Word che recupererà i dati di Word in pochi minuti.
Introduzione dell'autore:
Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui strumento di riparazione dei problemi di dati xls and pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com