
Para establecer el formato de párrafo en un documento de Word desde Excel, puedes utilizar VBA (Visual Basic for Applications). A continuación, te muestro cómo puedes hacerlo:
Sub FormatearParrafosWord()
Dim wdApp As Object
Dim wdDoc As Object
' Iniciar Word y crear un nuevo documento
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If wdApp Is Nothing Then
Set wdApp = CreateObject("Word.Application")
End If
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Add
' Añadir texto de ejemplo
wdDoc.Content.Text = "Este es un párrafo de ejemplo en Word desde Excel."
' Seleccionar el párrafo
With wdDoc.Paragraphs(1).Range
' Alinear el párrafo (wdAlignParagraphCenter, wdAlignParagraphLeft, wdAlignParagraphRight, wdAlignParagraphJustify)
.ParagraphFormat.Alignment = 1 ' 1 es para centrar
' Establecer espaciado antes y después (en puntos)
.ParagraphFormat.SpaceBefore = 12
.ParagraphFormat.SpaceAfter = 12
' Establecer interlineado (por ejemplo, 1.5)
.ParagraphFormat.LineSpacing = wdApp.LinesToPoints(1.5)
End With
' Liberar objetos
Set wdDoc = Nothing
Set wdApp = Nothing
End Sub
- Abrir el editor de VBA:
- En Excel, presiona `ALT + F11` para abrir el Editor de VBA.
- Insertar un nuevo módulo:
- En el editor, haz clic en `Insertar` > `Módulo` para crear un nuevo módulo.
- Escribir el código VBA:
- Copia y pega el siguiente código en el módulo:
- Ejecutar el macro:
- Guarda el módulo con el código y cierra el editor de VBA.
- Regresa a Excel y presiona `ALT + F8` para abrir la lista de macros.
- Selecciona `FormatearParrafosWord` y haz clic en `Ejecutar`.
Este script hará lo siguiente:
- Abre Word y crea un nuevo documento.
- Inserta un párrafo de texto.
- Aplica la alineación centrada, establece el espaciado antes y después en 12 puntos y configura el interlineado a 1.5 líneas.
Puedes ajustar estos valores según tus necesidades cambiando los parámetros en el código VBA.
Conoce nuestros servicios



