With WDapp.Documents(file1).Tables(1)
xText = .Range.Text
xText = Replace(xText, Chr(13) & Chr(7), ",")
RowArr = Split(xText, ",,")
For R = 0 To UBound(RowArr)
ColArr = Split(RowArr(R), ",")
For C = 0 To UBound(ColArr)
Cells(R + 1, C + 1) = ColArr(C)
Next C
Next R
End With