VBA - dyn. Excel-Tabelle in Word kopieren

[EasY]

Hi Leute,

ich benötige eure Hilfe bei folgendem Codeschnipsel

Code:

Sub Word_Export()

Dim objWord As Object
Dim strPfad As String
Dim objList As ListObject


strPfad = ThisWorkbook.Path & "\Rechnungsvorlage.docx"

Set objWord = CreateObject("Word.application")
Set objList = ThisWorkbook.Sheets("Rechnung erstellen").ListObjects("Tab_Arbeiten")
   With objWord
   .Application.Visible = True
   .Application.documents.Open (strPfad)
   End With
   
With objList.Range
   .Copy
   .Copy Destination:=objWord.activedocument.bookmarks("Spr_Leistung").Range.Text
End With
   
   
Set objWord = Nothing

End Sub

Ziel ist es, auf Knopfdruck ein Word-Dokument zu öffnen und die formatierte Tabelle "Tab_Arbeiten" an die Textmarke "Spr_Leistung" zu kopieren. Die Tabelle soll nicht nur kopiert, sondern auch verknüpft werden und die Formatierung behalten.

Folgende Probleme tauchen noch auf:
- Die Copy-Destination will nicht so wie sie soll -  was mache ich falsch?
- Mit welchem Code verknüpfe ich die Tabelle (Excel --> Word)?



Gruß und Danke im voraus

[schauan]

Hallöchen,

das Kopieren

With objList.Range
.Copy
.Copy Destination:=objWord.activedocument.bookmarks("Spr_Leistung").Range.Text
End With

Machst Du erst mal so:

objList.Range.Copy

Das Einfügen eventuell so:

objWord.activedocument.bookmarks("Spr_Leistung").Range.PasteAndFormat Type:=wdFormatOriginalFormatting


das ist jetzt allerdings keine Verknüpfte Tabelle.

[Cadmus]

Warum die Verknüpfung nicht über Word?


Schau dir mal https://www.youtube.com/watch?v=UXi-Df_bm2w an.

Das vorbereitete Dokument kannst du ja trotzdem über Excel starten.

[Case]

Hallo, :19:

verknüpfen kannst Du über folgende Methode: :21:

Selection.PasteExcelTable Method (Word)...