Cómo crear un estilo de Word que active la inserción de autotexto al aplicarlo

Desea aplicar un estilo en Word y que inserte automáticamente un bloque de texto predefinido, como una firma, un aviso legal o una cláusula modelo. Word no permite de forma nativa que un estilo de párrafo active la inserción de AutoTexto o Elemento rápido al hacer clic en él en la galería de Estilos. Sin embargo, puede lograr este comportamiento combinando un estilo personalizado con una macro que se ejecuta al aplicar el estilo. Este artículo explica cómo configurar una inserción de AutoTexto vinculada a un estilo mediante una macro VBA sencilla, incluidos los pasos exactos para crear el estilo, grabar la entrada de AutoTexto y asignar la macro al estilo.

Cómo puede un estilo activar la inserción de AutoTexto

Los estilos de Word están diseñados para aplicar atributos de formato como fuente, tamaño, espaciado y bordes. No tienen un evento integrado que ejecute código o inserte contenido al seleccionarlos en el panel o la galería de Estilos. Para que un estilo inserte AutoTexto, debe usar una macro que intercepte la aplicación del estilo. La macro primero aplica el estilo al párrafo actual y luego inserta la entrada de AutoTexto en la posición del cursor. Este enfoque requiere que guarde el contenido deseado como una entrada de AutoTexto y cree una macro de VBA que llame a la inserción de AutoTexto. La macro debe almacenarse en el documento o en una plantilla global para que se ejecute al aplicar el estilo.

Antes de comenzar, asegúrese de que las macros estén habilitadas en la configuración del Centro de confianza. Vaya a Archivo > Opciones > Centro de confianza > Configuración del Centro de confianza > Configuración de macros y seleccione Habilitar todas las macros. También marque la casilla de verificación Confiar en el acceso al modelo de objetos del proyecto de VBA. Esto es necesario para que la macro se ejecute automáticamente.

Pasos para crear el estilo y la macro de AutoTexto

1. Crear la entrada de AutoTexto
   Escriba el bloque de texto que desea insertar, por ejemplo, un aviso legal o un bloque de firma. Seleccione todo el texto. Vaya a Insertar > Elementos rápidos > AutoTexto > Guardar selección en galería de AutoTexto. En el cuadro de diálogo Crear nuevo bloque de creación, escriba un nombre único como “MiAvisoLegal”. Establezca la Galería en AutoTexto. Haga clic en Aceptar.
2. Crear el estilo personalizado
   En la pestaña Inicio, haga clic en el iniciador de diálogo de Estilos (la flecha pequeña en la esquina inferior derecha del grupo Estilos). Haga clic en el botón Nuevo estilo en la parte inferior del panel Estilos. En el cuadro de diálogo Crear nuevo estilo a partir del formato, escriba un nombre como “Estilo de aviso legal”. Establezca el Tipo de estilo en Párrafo. Configure el formato que desea para el bloque de texto. Haga clic en Aceptar.
3. Abrir el editor de VBA
   Presione Alt+F11 para abrir el editor de Visual Basic para Aplicaciones. En el panel Explorador de proyectos, busque su documento o la plantilla Normal.dotm. Haga clic con el botón derecho en el nombre del proyecto y elija Insertar > Módulo. Se abre un nuevo módulo de código.
4. Escribir la macro
   En el módulo, pegue el siguiente código:
   Sub ApplyDisclaimerStyle()
Selection.Style = ActiveDocument.Styles("Disclaimer Style")
Application.Templates(_
Loaded:=True).BuildingBlockEntries("MyDisclaimer").Insert _
Where:=Selection.Range, RichText:=True
End Sub
   Reemplace “Estilo de aviso legal” con el nombre de su estilo y “MiAvisoLegal” con el nombre de su entrada de AutoTexto. Cierre el editor de VBA.
5. Asignar la macro al estilo
   Word no permite asignar una macro directamente a un estilo en la interfaz de usuario. En su lugar, agregue la macro a la Barra de herramientas de acceso rápido o cree un atajo de teclado. Para agregarla a la Barra de herramientas de acceso rápido, vaya a Archivo > Opciones > Barra de herramientas de acceso rápido. En Elegir comandos de, seleccione Macros. Seleccione la macro llamada ApplyDisclaimerStyle y haga clic en Agregar. Haga clic en Aceptar. Ahora, al hacer clic en ese botón de la Barra de herramientas de acceso rápido, se aplica el estilo y se inserta el AutoTexto.
6. Probar la macro
   Coloque el cursor en un párrafo en blanco. Haga clic en el botón de la macro en la Barra de herramientas de acceso rápido. El estilo debe aplicarse al párrafo y el contenido de AutoTexto debe aparecer en la posición del cursor.

Limitaciones y enfoques alternativos

El método anterior no hace que el estilo en sí active la macro al hacer clic en él en la galería de Estilos. La macro debe ejecutarse manualmente mediante un botón o un atajo de teclado. Si necesita que el estilo ejecute la macro automáticamente al aplicarlo a través de la galería, necesitaría una macro más avanzada controlada por eventos que supervise el evento SelectionChange y compruebe si el estilo ha cambiado. Esto es complejo y puede ralentizar Word. Una alternativa más sencilla es usar un atajo de teclado personalizado para la macro. Vaya a Archivo > Opciones > Personalizar cinta de opciones > Personalizar junto a Atajos de teclado. En Categorías, seleccione Macros. En Macros, seleccione ApplyDisclaimerStyle. Asigne un atajo como Ctrl+Alt+D. Al presionar ese atajo se aplica el estilo y se inserta el AutoTexto.

Word no inserta el AutoTexto cuando el estilo se aplica a través de la galería

Este es el comportamiento esperado. La macro solo se ejecuta cuando la activa explícitamente. Para que la inserción del estilo parezca más integrada, puede ocultar el estilo original del panel Estilos e indicar a los usuarios que usen el botón de la macro o el atajo. Haga clic con el botón derecho en el estilo en el panel Estilos y elija Modificar. Marque la casilla Agregar a la galería de estilos pero deje desmarcada Agregar a la lista de estilos rápidos. Esto evita que el estilo aparezca en la lista de Estilos rápidos, lo que reduce el uso accidental.

La macro inserta el AutoTexto en la ubicación incorrecta

La macro inserta el AutoTexto en el Selection.Range actual. Si desea que el AutoTexto aparezca al principio del párrafo después de aplicar el estilo, cambie la línea a Selection.Paragraphs(1).Range.InsertBefore o use un marcador específico. Para la mayoría de los usos, insertar en el cursor es suficiente.

La macro no se ejecuta debido a la configuración de seguridad

Si la macro no se ejecuta, compruebe que las macros estén habilitadas. También asegúrese de que el documento esté guardado como un documento habilitado para macros (.docm) o de que la macro esté almacenada en la plantilla Normal.dotm. Si usa un archivo .docx, las macros no se ejecutarán. Guarde su archivo como Documento de Word habilitado para macros (docm).

Elemento	Método de botón de macro	Método de macro controlada por eventos
Facilidad de configuración	Sencillo: una macro, un botón o atajo	Complejo: requiere controlador de eventos y detección de cambio de estilo
Interacción del usuario	El usuario hace clic en un botón o presiona un atajo	El usuario aplica el estilo normalmente; la macro se ejecuta en segundo plano
Impacto en el rendimiento	Ninguno: la macro se ejecuta solo a petición	Moderado: el controlador de eventos comprueba cada cambio de selección
Fiabilidad	Alta: la macro siempre se ejecuta cuando se activa	Media: puede entrar en conflicto con otras macros o con Deshacer
Compatibilidad	Funciona en Word 2010 y versiones posteriores	Funciona en Word 2010 y versiones posteriores, pero puede bloquearse por seguridad

Ahora puede crear un estilo de Word que inserte contenido de AutoTexto al aplicarlo mediante una macro asignada a un botón o atajo de teclado. Este método funciona de forma fiable para cualquier bloque de texto que guarde como entrada de AutoTexto. Para una experiencia más automática, explore el enfoque controlado por eventos, pero tenga en cuenta su complejidad y las posibles desventajas de rendimiento. Como sugerencia avanzada, almacene la macro en una plantilla global (Normal.dotm) para que esté disponible en todos los documentos sin volver a crear el estilo cada vez.