¿Cómo aplicar estilos predefinidos de Word desde Excel?

Aplicar estilos predefinidos de Word desde Excel implica la automatización de ambos programas utilizando VBA (Visual Basic for Applications). A continuación, te proporciono una guía básica sobre cómo realizar esta tarea:

   Sub AplicarEstiloEnWordDesdeExcel()
       Dim wdApp As Object
       Dim wdDoc As Object
       Dim wordFilePath As String
       Dim estiloNombre As String
       
       ' Ruta del documento de Word
       wordFilePath = "C:rutaaldocumento.docx"
       ' Nombre del estilo que deseas aplicar
       estiloNombre = "Título 1"
       
       ' Inicia Word y abre el documento
       On Error Resume Next
       Set wdApp = GetObject(Class:="Word.Application")
       If wdApp Is Nothing Then
           Set wdApp = CreateObject(Class:="Word.Application")
       End If
       On Error GoTo 0
       Set wdDoc = wdApp.Documents.Open(wordFilePath)
       
       ' Mostrar Word
       wdApp.Visible = True
       
       ' Aplicar estilo a todo el documento o parte de él
       With wdDoc.Content
           .Select
           wdApp.Selection.Style = wdDoc.Styles(estiloNombre)
       End With
       
       ' Guardar y cerrar el documento de Word
       wdDoc.Save
       wdDoc.Close
       Set wdDoc = Nothing
       
       ' Cerrar la aplicación de Word
       wdApp.Quit
       Set wdApp = Nothing
       
       MsgBox "Estilo aplicado con éxito."
   End Sub

Abrir el Editor de VBA:

Abre Excel.
Presiona `ALT + F11` para abrir el Editor de VBA.

Insertar un Nuevo Módulo:

En el Editor de VBA, haz clic en `Insertar` > `Módulo` para crear un nuevo módulo.

Agregar Código VBA:

Copia y pega el siguiente código en el módulo que acabas de crear. Este ejemplo asume que deseas aplicar un estilo particular a un documento de Word:

Asegúrate de sustituir `»C:rutaaldocumento.docx»` con la ruta completa a tu documento de Word y `»Título 1″` con el nombre del estilo que deseas aplicar.

Ejecutar el Macro:

Cierra el Editor de VBA.
En Excel, ve a la pestaña `Desarrollador` (si no la ves, debes habilitarla en las opciones de Excel).
Haz clic en `Macros`, selecciona `AplicarEstiloEnWordDesdeExcel`, y luego presiona `Ejecutar`.

Notas Adicionales:

Asegúrate de que la referencia a Microsoft Word Object Library esté habilitada en VBA si estás manejando objetos de Word directamente en VBA. Ve a `Herramientas` > `Referencias` en el Editor de VBA y busca la biblioteca adecuada.
Si deseas aplicar el estilo a una parte específica del documento, como un determinado párrafo, necesitarás ajustar el código para seleccionar esa parte en lugar de aplicar el estilo a todo el contenido.

Este procedimiento te permitirá automatizar la aplicación de estilos de Word utilizando Excel. Asegúrate de tener cuidado al escribir las rutas del archivo y los nombres de los estilos para evitar errores.