En la publicación de hoy, nos complace compartir con ustedes dos métodos rápidos para extraer textos del mismo color de su documento de Word.
De vez en cuando, al formatear un documento de Word, es probable que apliquemos color de fuente a algunos textos para tacharlos y llamar la atención. Por lo general, estas palabras coloreadas son contenidos importantes que merecen su revisión nuevamente. Entonces, ¿qué tal exportarlos y recopilarlos a otro lugar para verificarlos más tarde?
Con el enfoque en esta demanda, le sugerimos 2 atajos rápidos en lugar de acciones interminables de cortar y pegar.
Método 1: utilizar la función "Buscar"
- En primer lugar, haga clic en la pestaña "Inicio".
- Luego vaya al grupo "Edición" para hacer clic en el botón del triángulo invertido junto a "Buscar".
- A continuación, elija "Búsqueda avanzada" en la lista.
- En el cuadro de diálogo "Buscar y reemplazar", coloque el cursor en el cuadro de texto "Buscar qué" y borre cualquier contenido allí, si lo hubiera.
- A continuación, haga clic en el botón "Más".
- Ahora haga clic en el botón "Formato" y elija "Fuente".
- En el cuadro de diálogo "Buscar fuente", haga clic en el botón desplegable detrás de "Color de fuente" para elegir el color exacto que asigna a sus textos.
- Recuerde hacer clic en "Aceptar".
- Ahora regrese al cuadro "Buscar y reemplazar" y haga clic en "Buscar en".
- Finalmente, elija "Documento principal".
A continuación, se seleccionarán todos los textos del color deseado. Ahora puedes pulsar “Ctrl + C” para copiarlos y pegarlos en otra ubicación de una sola vez.
Método 2: ejecutar una macro de Word
- En primer lugar, haga clic en la pestaña "Desarrollador".
- Luego haga clic en "Visual Basic" para activar el editor de VBA.
- Luego haga clic en “Normal” y luego en “Insertar”.
- Elija "Módulo" en el menú.
- Luego haga doble clic en el módulo para activar el espacio de codificación.
- Siguiente pegar códigos:
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
- Ahora haga clic en el botón "Ejecutar".
Habrá un nuevo documento abierto con todos los textos extraídos.
Nota: En la línea de código ".Font.Color = wdColorRed", debe reemplazar "wdColorRed" con el color real de sus textos. Para obtener una referencia detallada, puede visitar esta página: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor
Abordar el problema de la palabra
La mayoría de nosotros ya somos usuarios frecuentes de Word. Sin embargo, a pesar de ello, aún podemos encontrarnos con algunos problemas difíciles, como el bloqueo de Word. Esto es, sin duda, bastante serio, ya que sus archivos críticos pueden estar en riesgo. En tales circunstancias, se sugiere obtener una Herramienta de reparación de errores de datos de Word que recuperará los datos de Word en solo unos minutos.
Introducción del autor:
Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo xls herramienta de reparación de problemas de datos y pdf reparar productos de software. Para más información visite www.datanumen.com