How can I read cell by cell in table from word to Excel ?

[q1q2q3]

As the captioned,what can I do? Please give for my help.

[fumei]

Declare a table object, and set it.
Declare a cell object

Use a For Each cell object loop of the table object.
Dim oTable As Word.Table
Dim oCell As Cell
Set oTable = ActiveDocument.Tables(3)
For Each oCell In oTable
' do whatever it is you want to do
Next

Look in Help.