
Para insertar saltos de línea o párrafos en un documento de Word mediante VBA desde Excel, necesitas utilizar la automatización de Office para trabajar con la aplicación de Word desde Excel. Puedes lograr esto siguiendo estos pasos:
Sub InsertTextIntoWord()
Dim WordApp As Object
Dim WordDoc As Object
' Inicia Word y abre un nuevo documento
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Add
' Agrega texto al documento
With WordDoc.Content
.Text = "Este es el primer párrafo."
.InsertParagraphAfter
.InsertAfter "Este es el segundo párrafo con un salto de línea." & vbCrLf
.InsertAfter "Este es el tercer párrafo."
.InsertParagraphAfter
End With
' Limpia las referencias
Set WordDoc = Nothing
Set WordApp = Nothing
End Sub
- Asegúrate de habilitar la referencia a la biblioteca de objetos de Word en VBA. Para hacerlo, ve al Editor de VBA en Excel, luego a `Herramientas` > `Referencias` y busca `Microsoft Word xx.x Object Library`, donde `xx.x` es la versión de Word que tienes instalada (por ejemplo, 16.0 para Word de Office 365/2019).
- Usa el siguiente ejemplo de código VBA que muestra cómo abrir un documento de Word y agregar texto con saltos de línea o párrafos:
- Explicación del código:
- `CreateObject(«Word.Application»)`: Crea una nueva instancia de la aplicación Word.
- `WordApp.Documents.Add`: Crea un nuevo documento.
- `WordApp.Visible = True`: Hace visible la aplicación Word para que puedas ver los cambios.
- `.Text = «Texto»`: Establece el texto inicial del documento.
- `.InsertParagraphAfter`: Agrega un nuevo párrafo después del texto actual.
- `.InsertAfter «Texto»`: Agrega más texto después del contenido existente. Puedes usar `vbCrLf` para un salto de línea.
- Finalmente, se eliminan las referencias a los objetos de Word al establecerlos en `Nothing`.
Este código te permitirá agregar texto y controlar el formato en un documento de Word desde un script de Excel VBA. Ajusta el texto y la estructura según tus necesidades específicas.
Conoce nuestros servicios



