Excel 2013 - Daten aus Word Datei ohne Trennzeichen importieren

^(.*?) ([^\s]+ \d+) ([\d\-]+) (.*)

1.	Max Mustermanns Musterhäuser
2.	Musterstraße 123
3.	12345
4.	Musterstadt

Sub ImportWordAddresses()
    Dim objWord As Object, doc As Object, rng As Range, regex As Object, i As Long
    Const PATH = "C:\demo.docx"  
    
    Set objWord = CreateObject("Word.Application")  
    Set regex = CreateObject("vbscript.regexp")  
    regex.IgnoreCase = True
    regex.Pattern = "^(.*?) ([^\s]+ \d+) ([\d\-]+) (.*)"  
    
    With ActiveSheet
        .Range("A1:D1").Value = Array("Name", "Straße", "PLZ", "Ort")  
        .Range("A1:D1").Font.Bold = True  
        Set rng = .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)  
        
        
        Set doc = objWord.Documents.Open(PATH)
        arrContent = Split(doc.Content.Text, Chr(13))
        objWord.Quit False
        
        For i = 0 To UBound(arrContent)
            Set matches = regex.Execute(arrContent(i))
            If matches.Count > 0 Then
                rng.Resize(1, 4).Value = Array(matches(0).submatches(0), matches(0).submatches(1), matches(0).submatches(2), matches(0).submatches(3))
                Set rng = rng.Offset(1, 0)
            End If
        Next
        
        .Range("A:D").EntireColumn.AutoFit  
    End With
End Sub