Zeilen einer Word-Datei in Excel einfügen

Sub ImportParagraphsFromWord()
    Dim objDoc As Object
    Dim i As Integer
    
    With CreateObject("Word.Application")  
        .Visible = False
        .DisplayAlerts = False
        Set objDoc = .Documents.Open(ThisWorkbook.Path & "\test.docx")  
        ' Loop through the first 20 paragraphs and copy the text to Excel  
        For i = 1 To 20
            ThisWorkbook.Sheets("Tabelle1").Cells(i, 1).Value = objDoc.Paragraphs(i).Range.Text  
        Next i
        
        objDoc.Close False
        .DisplayAlerts = True
        .Quit
    End With
    Set objDoc = Nothing
End Sub