El Profe Arci – Mtro. Fernando Arciniega –

Cómo aplicar un mismo estilo a todas las tablas de un documento de Word usando una macro

Publicado el 30 enero, 2025
por Mtro. Fernando Omar Arciniega Martínez

Cómo aplicar un mismo estilo a todas las tablas de un documento de Word usando una macro

Si necesitas aplicar un formato uniforme a todas las tablas en un documento de Word, puedes utilizar una macro de VBA (Visual Basic for Applications). A continuación, te explicamos paso a paso cómo lograrlo:

Paso 1: Abrir el Editor de Visual Basic

  1. Abre Microsoft Word y carga el documento donde deseas aplicar el formato.
  2. Presiona Alt + F11 para abrir el Editor de Visual Basic para Aplicaciones (VBA).

Paso 2: Crear un nuevo módulo

  1. En la ventana de VBA, haz clic en “Insertar” > “Módulo”.
  2. Se creará un nuevo módulo en el proyecto de VBA.

Paso 3: Escribir el código de la macro

Copia y pega el siguiente código en la ventana del módulo:

Sub AplicarEstiloATodasLasTablas()
    Dim tbl As Table
    
    ' Recorrer todas las tablas del documento
    For Each tbl In ActiveDocument.Tables
        tbl.Style = "Tabla con cuadrícula 4 - Énfasis 5"
    Next tbl
End Sub

Paso 4: Ejecutar la macro

  1. Cierra el Editor de VBA.
  2. En Word, presiona Alt + F8 para abrir la lista de macros.
  3. Selecciona “AplicarEstiloATodasLasTablas” y haz clic en Ejecutar.

Explicación del código

  • For Each tbl In ActiveDocument.Tables recorre todas las tablas del documento.
  • tbl.Style = "Tabla con cuadrícula 4 - Énfasis 5" asigna el estilo especificado a cada tabla.

Consideraciones

  • El nombre del estilo debe coincidir exactamente con el que aparece en Word.
  • Puedes cambiar el estilo por otro que prefieras, siempre que exista en la galería de estilos de Word.

Con este sencillo procedimiento, puedes asegurarte de que todas las tablas de tu documento tengan un formato uniforme de manera rápida y eficiente.

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *