¿Cómo establecer el formato de párrafo (alineación, espaciado) en Word desde Excel?

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

Conoce nuestra tienda

Mejora tu nivel y logra tus objetivo

Excel

Excel cursos

Access

cursos de Access

Power BI

cursos power BI

Deja un comentario