excel读word表，Excel格式同word表相同。

ningyong58

这是word中的表格
a1        a2        a3
12        21        65
34        18        80
56        15        95
78        12        110
100        9        125
122        6        140


目标需求：在excel打开word的doc文件，并将这个表按原格式读到Excel。Excel格式与Word相同

zhaogang1960

请测试：
Sub macro1()
    Dim t As Object, arr(), i&, j&
    Cells.Clear
    With CreateObject("WORD.APPLICATION")
        .Documents.Open ThisWorkbook.Path & "\a1.doc"
        With .activedocument.Tables(1)
            ReDim arr(1 To .Rows.Count, 1 To .Columns.Count)
            For i = 1 To .Rows.Count
                For j = 1 To .Columns.Count
                    arr(i, j) = Replace(.Cell(i, j).Range.Text, Chr(7), "")
                Next j
            Next i
        End With
        Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
        .Quit
    End With
End Sub