Cómo usar VBA para dar formato a los encabezados con estilos personalizados

Aplicar manualmente estilos de encabezado personalizados en un documento largo de Word consume mucho tiempo y es propenso a errores. Las macros de VBA permiten automatizar este formato en segundos, garantizando que cada encabezado use exactamente sus preferencias de fuente, tamaño, color y espaciado. Este artículo explica cómo escribir y ejecutar una macro de VBA que da formato a todos los encabezados del documento con un estilo personalizado.

Aprenderá los objetos esenciales de VBA para dirigirse a los encabezados, cómo crear una macro que aplique un estilo personalizado y cómo manejar errores comunes como niveles de encabezado mixtos. No se requiere experiencia previa en programación: cada paso se explica en lenguaje sencillo.

Cómo funcionan las macros de VBA con los estilos de encabezado

Word asigna un estilo integrado a cada nivel de encabezado: Título 1, Título 2, Título 3, etc. Una macro de VBA puede recorrer todos los párrafos del documento y comprobar si un párrafo usa uno de estos estilos de encabezado integrados. Cuando encuentra un párrafo de encabezado, la macro puede aplicar un estilo diferente, por ejemplo, un estilo personalizado que ya haya definido llamado “MiEncabezadoPersonalizado”.

Antes de escribir la macro, debe crear el estilo personalizado en el documento. Vaya a la pestaña Inicio, abra el panel Estilos y haga clic en el botón Nuevo estilo en la parte inferior. Asigne al estilo un nombre como “EncabezadoPersonalizado1” y configure la fuente, el tamaño, el color, la negrita, el espaciado y cualquier otro formato que necesite. Guarde el estilo en el documento actual o en la plantilla si desea que esté disponible para todos los documentos nuevos.

La macro usa la colección Paragraphs y la propiedad Style. La constante integrada clave para identificar párrafos de encabezado es wdStyleHeading1 hasta wdStyleHeading9. Para una comprobación más amplia que abarque cualquier nivel de encabezado, use la propiedad ParagraphFormat.HeadingLevel. Si HeadingLevel es mayor que cero, el párrafo es un encabezado.

Pasos para escribir y ejecutar la macro de VBA

1. Habilitar la pestaña Desarrollador
   Haga clic en Archivo > Opciones > Personalizar cinta de opciones. En Pestañas principales, marque la casilla Desarrollador y haga clic en Aceptar. La pestaña Desarrollador ahora aparece en la cinta de opciones.
2. Abrir el editor de VBA
   En la pestaña Desarrollador, haga clic en Visual Basic. Como alternativa, presione Alt+F11 en el teclado. Se abre la ventana del editor de VBA.
3. Insertar un nuevo módulo
   En el editor de VBA, haga clic con el botón derecho en cualquier elemento del panel Explorador de proyectos, en Normal o en el nombre de su documento. Elija Insertar > Módulo. Aparece una ventana de código en blanco.
4. Pegar el código de la macro
   Copie el siguiente código y péguelo en la ventana del módulo:

   Sub FormatHeadingsWithCustomStyle()
       Dim para As Paragraph
       Dim customStyleName As String
       customStyleName = "CustomHeading1"
       For Each para In ActiveDocument.Paragraphs
           If para.HeadingLevel > 0 Then
               para.Style = customStyleName
           End If
       Next para
       MsgBox "All headings formatted with " & customStyleName
   End Sub

   Reemplace "CustomHeading1" con el nombre exacto del estilo personalizado que creó anteriormente.

5. Ejecutar la macro
   Presione F5 mientras el cursor está dentro del código de la macro, o cierre el editor de VBA y vaya a Desarrollador > Macros. Seleccione FormatHeadingsWithCustomStyle y haga clic en Ejecutar. Word aplica su estilo personalizado a cada párrafo de encabezado del documento.

Errores comunes al usar VBA para el formato de encabezados

La macro no hace nada después de ejecutarse

Si la macro se ejecuta pero los encabezados no cambian, el nombre del estilo personalizado en la macro no coincide con el nombre exacto del estilo en el documento. Abra el panel Estilos, haga clic con el botón derecho en su estilo personalizado y elija Modificar. Copie el nombre del estilo exactamente, incluidos los espacios y las mayúsculas. Actualice la variable customStyleName en la macro y vuelva a ejecutarla.

Solo se formatean los párrafos de Título 1

El código mostrado arriba usa HeadingLevel > 0, que abarca todos los niveles de encabezado. Si cambió la condición a para.Style = "Heading 1", la macro solo afectará a los párrafos de Título 1. Para dar formato a varios niveles de encabezado con estilos personalizados diferentes, cree macros separadas o use una estructura Select Case dentro del bucle. Por ejemplo:

Select Case para.Style
    Case "Heading 1"
        para.Style = "CustomHeading1"
    Case "Heading 2"
        para.Style = "CustomHeading2"
End Select

La macro da formato al texto del cuerpo como encabezados

Esto ocurre cuando los párrafos no tienen realmente un estilo de encabezado, sino un formato similar. La macro comprueba la propiedad HeadingLevel, que devuelve cero para los párrafos que no son encabezados. Si usa niveles de esquema (Párrafo > Sangría y espaciado > Nivel de esquema) en lugar de estilos de encabezado, la macro no los detectará. Convierta esos párrafos a estilos de encabezado integrados antes de ejecutar la macro, o modifique la macro para comprobar la propiedad OutlineLevel en su lugar.

Macro de VBA vs. formato manual: comparación de eficiencia

Elemento	Macro de VBA	Formato manual
Tiempo para 100 encabezados	Menos de 2 segundos	5 a 10 minutos
Consistencia	Se aplica exactamente el mismo estilo a cada encabezado	Riesgo de omitir un encabezado o aplicar una fuente incorrecta
Tasa de errores	Ninguna si el nombre del estilo es correcto	Alta: es fácil omitir o formatear mal un encabezado
Reutilización	La macro se puede guardar en la plantilla y reutilizar	Hay que repetir los pasos para cada documento
Requiere programación	Sí: configuración única	No se necesita programación

Las macros de VBA son la mejor opción cuando necesita dar formato a encabezados en documentos grandes o en muchos documentos. El formato manual es aceptable para un solo documento corto con menos de diez encabezados.

Después de ejecutar la macro, verifique el formato desplazándose por el documento y comprobando algunos encabezados de diferentes niveles. Si el estilo personalizado incluye numeración, confirme que la secuencia de numeración sea correcta: VBA no actualiza automáticamente la numeración de listas. Presione Ctrl+A y luego F9 para actualizar todos los campos si es necesario.

Para un uso avanzado, guarde la macro en su plantilla Normal.dotm para que esté disponible en todos los documentos nuevos. En el editor de VBA, arrastre el módulo desde su documento hasta el proyecto Normal. Luego exporte el módulo como un archivo .bas para hacer una copia de seguridad o compartirlo con colegas.