Hallo zusammen,
ich habe hier ein Makro, um eine Tabelle aus Excel in eine Word-Datei zu exportieren - soweit so gut -
Sub Export()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Test")
Dim WdObj As Object, fname As String
fname = "LH_Test"
Set WdObj = CreateObject("Word.Application")
WdObj.Visible = False
' Create Chapter Test
Sheets("Test").Select
ws.Range("B2:E107").Copy
WdObj.Documents.Open Filename:=ThisWorkbook.Path & "\Template_LH.docx"
With WdObj.ActiveDocument
.Bookmarks("Generisch").Range.PasteExcelTable False, True, False
End With
Dazu habe ich eine Fragen:
Die erste Zeile aus der Tabelle soll sich als Tabellenkopf in der Word-Datei auf jeder Seite wiederholen. Ist das irgendwie möglich, das in meine With-Funktion einzubauen oder gibt es einen anderen Weg, das in VBA zu lösen, anstatt es manuell in Word einzustellen?
Viele Grüße und schon mal besten Dank!!
Evgenij