Cómo usar VBA para buscar y reemplazar texto en Word

Buscar y reemplazar texto manualmente en un documento largo es lento y propenso a errores. El cuadro de diálogo Buscar y reemplazar integrado de Word funciona para búsquedas simples, pero no puede manejar lógica condicional ni procesamiento por lotes en varios documentos. Las macros de VBA le permiten automatizar tareas complejas de búsqueda y reemplazo con precisión. Este artículo explica cómo escribir y ejecutar código VBA para buscar y reemplazar texto en Word, abarcando reemplazos básicos, búsquedas con comodines y cambios de formato.

Cómo funciona la búsqueda y el reemplazo con VBA en Word

VBA utiliza el objeto Find adjunto a un objeto Range. El Range puede ser todo el documento, una selección, un párrafo o un rango personalizado. Se establecen propiedades en el objeto Find para definir qué buscar y cómo reemplazarlo. El método clave es Execute, que ejecuta la búsqueda y, opcionalmente, realiza el reemplazo.

El objeto Find admite las mismas opciones que el cuadro de diálogo Buscar y reemplazar. Puede buscar texto, formato, caracteres especiales (como marcas de párrafo) y usar comodines. El objeto Replacement dentro de Find contiene el texto y el formato de reemplazo. Establecer Replacement.Text define qué reemplazará el texto encontrado. La propiedad Wrap controla qué sucede cuando la búsqueda llega al final del rango.

Para reemplazar todas las apariciones en el documento, se llama a Execute con el parámetro Replace establecido en wdReplaceAll. Esto ejecuta el reemplazo en una sola pasada sin bucles. Solo se necesita un bucle cuando se debe inspeccionar cada coincidencia antes de decidir si reemplazarla.

Requisitos previos

Necesita acceso al editor de VBA. Presione Alt+F11 para abrirlo. El documento debe ser un archivo habilitado para macros (.docm) o debe guardarlo como .docm después de agregar la macro. Habilite las macros en el Centro de confianza si se le solicita. No necesita experiencia avanzada en programación, pero debe sentirse cómodo copiando y pegando código en el editor.

Pasos para escribir una macro de VBA para buscar y reemplazar

1. Abrir el editor de VBA
   Presione Alt+F11 en Word. Se abre la ventana del editor de VBA. En el Explorador de proyectos, busque el nombre de su documento en Normal o Proyecto.
2. Insertar un nuevo módulo
   Haga clic en Insertar > Módulo en el menú. Aparece una ventana de código en blanco. Aquí es donde pegará el código de la macro.
3. Pegar el código de la macro
   Copie el código a continuación y péguelo en la ventana del módulo. El código reemplaza cada instancia de “texto antiguo” con “texto nuevo” en todo el documento.

Sub FindAndReplaceBasic()
    With ActiveDocument.Range.Find
        .Text = "old text"
        .Replacement.Text = "new text"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With
End Sub

4. Ejecutar la macro
   Presione F5 mientras el cursor está dentro del código de la macro. Como alternativa, cierre el editor y presione Alt+F8 en Word. Seleccione FindAndReplaceBasic de la lista y haga clic en Ejecutar.
5. Verificar el resultado
   Desplácese por el documento para confirmar que “texto antiguo” se ha reemplazado por “texto nuevo”. Si el reemplazo no funcionó, verifique que el texto coincida exactamente, incluidos espacios y puntuación.

Uso de comodines para la coincidencia de patrones

Establezca .MatchWildcards = True para usar patrones con comodines. Por ejemplo, para reemplazar cualquier secuencia de dos dígitos seguida de un espacio con “XX “, use este código:

Sub FindAndReplaceWildcards()
    With ActiveDocument.Range.Find
        .Text = "[0-9]{2} "
        .Replacement.Text = "XX "
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Reemplazo de formato

Para reemplazar texto y aplicar formato, establezca las propiedades Replacement.Font o Replacement.ParagraphFormat. El ejemplo a continuación reemplaza todas las instancias de “urgent” con “URGENT” en texto rojo en negrita:

Sub FindAndReplaceFormatting()
    With ActiveDocument.Range.Find
        .Text = "urgent"
        .Replacement.Text = "URGENT"
        .Replacement.Font.Bold = True
        .Replacement.Font.Color = wdColorRed
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Errores comunes y limitaciones al usar VBA para buscar y reemplazar

La macro de VBA se ejecuta pero nada cambia

La causa más común es una discrepancia en el texto de búsqueda. Verifique si hay espacios adicionales, espacios de no separación o caracteres ocultos. Copie el texto exacto del documento en la propiedad .Text. También verifique que .MatchCase y .MatchWholeWord estén configurados correctamente. Si el texto contiene caracteres especiales como marcas de párrafo, use la constante de VBA ^p en lugar del carácter real.

La macro reemplaza texto en encabezados o pies de página

El código anterior solo actúa sobre el cuerpo principal del documento. Para reemplazar texto en encabezados y pies de página, debe recorrer los encabezados y pies de página de cada sección. Use un bucle For Each sobre ActiveDocument.Sections y acceda a las colecciones Headers y Footers. Cada rango de encabezado tiene su propio objeto Find.

La macro de VBA es demasiado lenta en documentos grandes

Usar wdReplaceAll es más rápido que recorrer con Find.Execute repetidamente. Si debe usar un bucle, desactive la actualización de pantalla con Application.ScreenUpdating = False al inicio de la macro y vuelva a establecerla en True al final. También desactive Application.DisplayAlerts para suprimir los cuadros emergentes.

La macro no funciona después de guardar como .docx

Word elimina el código VBA de los archivos .docx. Guarde el documento como un documento habilitado para macros (.docm). Si abre un archivo .docm y las macros están deshabilitadas, habilítelas a través de Archivo > Opciones > Centro de confianza > Configuración del Centro de confianza > Configuración de macros. Seleccione “Habilitar todas las macros” o firme digitalmente la macro.

Característica	Buscar y reemplazar integrado	Macro de VBA
Automatización	Manual por documento	Lote en varios documentos
Compatibilidad con comodines	Sí, mediante el cuadro de diálogo	Sí, con MatchWildcards
Reemplazo de formato	Limitado a estilos de fuente	Control total sobre fuente, párrafo y otras propiedades
Lógica condicional	Ninguna	Puede inspeccionar cada coincidencia antes de reemplazar
Reutilización	Debe volver a aplicar la configuración cada vez	Ejecutar la misma macro en cualquier momento

VBA le brinda control total sobre las operaciones de búsqueda y reemplazo que el cuadro de diálogo integrado no puede igualar. Comience con reemplazos simples y agregue comodines o formato a medida que gane confianza. Para tareas avanzadas, explore los métodos Find y ClearFormatting del objeto ClearAllFuzzyOptions para restablecer todas las propiedades de búsqueda antes de establecer nuevas. Esto evita que la configuración residual interfiera con su próxima búsqueda.