Liste aus Excel umformatiert in Word

[snb]

Makro in Word:

Code:

Sub M_snb()
   With GetObject("J:\Temp\Bsp_Namen und TCs.xlsx")
      sn = .sheets(1).usedrange
      .Close 0
    End With
    
    For j = 1 To UBound(sn)
      c00 = c00 & "00'" & Left(Right(sn(j, 1), 5), 2) & " " & sn(j, 2) & vbCr & sn(j, 3) & vbCr
    Next
    
    ActiveDocument.Content = c00
End Sub