Zikica tiene un documento que contiene bastantes selecciones de texto que están formateadas en rojo. Le gustaría una forma de seleccionar todas las instancias del texto rojo y copiar ese texto en un nuevo documento. Se pregunta si es mejor hacerlo con una macro o si hay alguna otra forma de realizar la tarea.

Antes de empezar a usar una macro para realizar la tarea, veamos algunas formas en que puede hacerlo sin usar una macro. La primera es utilizar las capacidades de búsqueda y reemplazo de Word siguiendo estos pasos:

  1. Abra un documento nuevo. (Este es el documento en el que copiará su texto rojo.)

  2. Regrese a su documento original.

  3. Presione Ctrl + H. Word muestra la pestaña Reemplazar del cuadro de diálogo Buscar y reemplazar.

  4. Haga clic en la pestaña Buscar.

  5. Haga clic en el botón Más, si está disponible. Se expande el cuadro de diálogo.

(Ver figura 1)

  1. Si el botón Sin formato está disponible, haga clic en él. Esto elimina cualquier formato que haya buscado anteriormente.

  2. Asegúrese de que el cuadro Buscar esté vacío.

  3. Haga clic en el botón Formato y luego en Fuente. Word muestra el cuadro de diálogo Buscar fuente. (Ver figura 2)

  4. Haga clic en la lista desplegable Color de fuente y elija el tono de rojo que utilizó en su documento.

  5. Haga clic en Aceptar para cerrar el cuadro de diálogo Buscar fuente. Word muestra la información de color justo debajo del cuadro Buscar.

  6. Haga clic en la lista desplegable Buscar en y elija Documento principal. Word selecciona todas las instancias del texto rojo dentro del documento y le muestra en el cuadro de diálogo cuántas instancias encontró.

  7. Haga clic en Cerrar para cerrar el cuadro de diálogo Buscar y reemplazar. Todas las instancias de texto rojo aún deben estar seleccionadas.

  8. Presione Ctrl + C. Esto copia todo el texto al Portapapeles.

  9. Cambie al nuevo documento.

  10. Presione Ctrl + V. Word pega todo el texto rojo en el nuevo documento.

También puede usar Buscar y reemplazar de una manera diferente para llegar a una solución similar. En este enfoque, comienzas haciendo una copia del documento y luego haces tu trabajo con esa copia:

  1. Presione Ctrl + H. Word muestra la pestaña Reemplazar del cuadro de diálogo Buscar y reemplazar.

  2. Haga clic en el botón Más, si está disponible. Se expande el cuadro de diálogo.

(Vea la figura 3.)

  1. Asegúrese de que el cuadro Buscar esté vacío y que el punto de inserción esté en ese cuadro.

  2. Haga clic en el botón Formato y luego en Fuente. Word muestra el cuadro de diálogo Buscar fuente.

  3. Haga clic en la lista desplegable Color de fuente y elija Automático.

  4. Haga clic en Aceptar para cerrar el cuadro de diálogo Buscar fuente. Word muestra la información de color justo debajo del cuadro Buscar.

  5. Asegúrese de que el cuadro Reemplazar con esté vacío.

  6. Haga clic en Reemplazar todo. Word muestra un cuadro de diálogo que le informa cuántos reemplazos realizó.

  7. Haga clic en Aceptar para cerrar el cuadro de diálogo de información.

  8. Haga clic en Cerrar para cerrar el cuadro de diálogo Buscar y reemplazar.

Este enfoque elimina todo el texto que no sea rojo en el documento, dejando solo el rojo. (Esto supone que solo tiene texto normal y texto rojo en el documento. Si tiene otros colores que desea eliminar, deberá repetir los pasos y especificar un color diferente para eliminar en el paso 5.) El único inconveniente de esto El enfoque es que se elimina TODO el texto que no sea rojo, que también puede incluir marcadores de final de párrafo, por lo que el texto rojo puede aparecer en un solo párrafo.

Otra forma de copiar el texto en rojo en un documento diferente es omitir Buscar y reemplazar y usar una herramienta diferente. Siga estos pasos:

  1. Abra un documento nuevo. (Este es el documento en el que copiará su texto rojo.)

  2. Regrese a su documento original.

  3. Coloque el punto de inserción en algún lugar dentro de su texto rojo.

  4. Muestre la pestaña Inicio de la cinta.

  5. En el grupo Edición, haga clic en la herramienta Seleccionar y luego elija Seleccionar todo el texto con formato similar. Word selecciona todo el texto rojo con formato similar en su documento.

  6. Presione Ctrl + C. Esto copia todo el texto al Portapapeles.

  7. Cambie al nuevo documento.

  8. Presione Ctrl + V. Word pega todo el texto rojo en el nuevo documento.

Si tiene que hacer este tipo de edición con bastante frecuencia, es posible que desee crear una macro que realice la tarea por usted. Hay varias formas de hacerlo, pero lo siguiente será suficiente para mostrar el concepto. Crea una matriz de variables para todo el texto rojo del documento, crea un documento nuevo y luego inserta el texto de la matriz de variables en el nuevo documento.

Sub CopyRedTextToNewDoc()

Dim i As Integer     Dim a() As Variant     Dim sFound As String

Selection.Find.ClearFormatting     Selection.Find.Font.Color = wdColorRed     With Selection.Find         .Text = ""

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindContinue         .Format = True         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute

Do While Selection.Find.Found         ReDim Preserve a(i)

sFound = Selection

If Asc(Right(sFound, 1)) <> 13 Then             sFound = sFound & vbCrLf         End If

a(i) = sFound         i = i + 1         Selection.Find.Execute    Loop

Application.Documents.Add     For i = LBound(a) To UBound(a)

ActiveDocument.Range.InsertAfter a(i)

Next

' If you don't want the text in the new document to be red,     ' remove the following three lines or comment them out     Selection.WholeStory     Selection.Font.Color = wdColorRed     Selection.Collapse End Sub

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (379) se aplica a Microsoft Word 2007, 2010, 2013 y 2016.