Nella odierna pagost, siamo lieti di condividere con te 2 metodi rapidi per estrarre testi dello stesso colore dal tuo 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".
Quindi tutti i testi in tarottenere il colore sarà selezionato. Ora puoi premere "Ctrl + C" per copiarli e incollarli in un'altra posizione con una sola volta.
Metodo 2: eseguire una macro di Word
- Prima e primaost, 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
Most di noi sono già utenti abituali di Word. Tuttavia, nonostante ciò, possiamo ancora incontrare alcuni problemi difficili, come il crollo di Word. Questo è senza dubbio abbastanza serio, perché i tuoi file critici possono essere in linea. In tali circostanze, si suggerisce di ottenere a 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 e pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com