Sub x()
Dim t As Table
Dim r As Row
Dim c As Cell
Dim txt As String
Dim stxt As Variant
Dim substr As Variant
Dim num As Integer
'Select the table another way if you don't want the first one
Set t = ThisDocument.Tables(1)
'Probably does not work well at all with nested tables or non-flat table structures
For Each r In t.Rows
For Each c In r.Cells
num = 0
txt = c.Range.Text
txt = Replace(txt, Chr(7), vbLf)
txt = Replace(txt, Chr(11), vbLf)
stxt = Split(txt, vbLf, -1, vbTextCompare)