Encabezado al crear un informe de Excel a Word

Tengo un código que crea un encabezado en Word desde Excel:

wdApp.ActiveWindow.ActivePane.View.SeekView = 9 wdApp.Selection.TypeText ThisWorkbook.Worksheets("Rapport").Range("I4").Text wdApp.ActiveWindow.ActivePane.View.SeekView = 0 Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify 

Pero se produce un error en la última fila.
Lo que quiero crear con esa fila es que quiero que el encabezado esté bien centrado.

Así es como está usando el código. (No es lo que quiero)

enter image description here

y así es como quiero que se vea

enter image description here

Opción 1: intente cambiar el order de sus instrucciones y, lo que es importante, debe agregar un carácter de salto de línea especial en el y get el 'resultado de justificación'. Aquí hay un ejemplo:

 Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify Selection.TypeText "here is text from Excel" + Chr(11) 

Opción 2: Sin embargo, la justificación no le dará el resultado que usted presentó ya que las palabras alineadas agregan espacio extra entre cada palabra. Para get el resultado que tienes, necesitas agregar una tabla que podría ser así:

 Dim tmpTBL As Table Set tmpTBL = Selection.Tables.Add(Selection.Range, 1, 2) With tmpTBL.Cell(1, 1).Range .Text = "Date: " & Now .ParagraphFormat.Alignment = wdAlignParagraphLeft End With With tmpTBL.Cell(1, 2).Range .Text = "here is text from Excel" .ParagraphFormat.Alignment = wdAlignParagraphRight End With 

La siguiente captura de pantalla presenta ambas opciones. enter image description here