You can use something like :
Sub readTableCells()
Dim tbl As Table
'assuming table is selected
Set tbl = ActiveWindow.Selection.ShapeRange(1).Table
For i = 1 To tbl.Rows.Count
For j = 1 To tbl.Columns.Count
'output data , you can change this line and use the cell data
' anywhere in your code
Debug.Print tbl.Cell(i, j).Shape.TextFrame.TextRange.Text
Next
Next
End Sub
