Private
Sub
CommandButton1_Click()
Set
WdApp = CreateObject(
"Word.Application"
)
Set
wdDok = WdApp.Documents.Open(Filename:=Pfad)
Call
wdDok.Tables(1).Range.Copy
With
Worksheets(
"Tabelle1"
)
Call
.Paste(Destination:=.Range(
"B2"
))
End
With
End
Sub