Private Sub CommandButton1_Click()
Dim WdApp As Object
Dim wdDok As Object
Dim wbZiel As Workbook
Dim Pfad As String
Pfad = "C:\...\x.docx"
Set wbZiel = ThisWorkbook
ActiveSheet.Columns("A:J").Delete
ActiveSheet.Columns("A:J").Insert
Set WdApp = CreateObject("Word.Application")
Set wdDok = WdApp.Documents.Open(Filename:=Pfad)
WdApp.Visible = True
WdApp.Activate
WdApp.Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext, Count:=1, Name:=""
WdApp.Selection.Find.ClearFormatting
WdApp.Selection.Tables(1).Select
WdApp.Selection.Copy
Range("A1").Select
ActiveSheet.Paste
Set wdDok = Nothing
Set WdApp = Nothing
End Sub