Hallo,
ich versuche einen Lieferschein zu erstellen und möchte
dazu von Excel aus ein Word Dokument mit einer Tabelle füllen.
Das Word-Dokument mit Excel ist aus einer Vorlage erstellt
Das füllen des Bookmarks klappt tadellos, aber die Tabelle kann
ich nicht ansprechen.
Bei "myRng.select" passiert nichts und bei "myRng.pasteappendtable" kommt
Befehl nicht verfügbar.
LiefDat = Format(.Cells(EZeile, 13), "dd.mm.yyyy")
'LS Kopf füllen
wdDoc.Bookmarks("LiefDat").Range.Text = LiefDat
' Aus ABNr und BestNr den Dateinamen bauen
DatName = "LS_" & Format(LiefDat, "ddmmyy") & ".docx"
strPathAndFileName = DefaultPfad & DatName
wdDoc.Activate
Set myRng = wdDoc.Range(Start:=wdDoc.Tables(1).Cell(1,1).Range.Start, _
End:=wdDoc.Tables(1).Cell(1, 9).Range.End)
myRng.Select
myRng.PasteAppendTable
Wo ist der Fehler?
Grüße
Michael