Нашёл решение
Dim r As Word.Range
Set r = ActiveDocument.Range(1, ActiveDocument.Tables(1).Range.Start)
MsgBox r.Text
Dim d As Word.Document, i&, t$
Set d = ActiveDocument
For i = 1 To d.Tables.Count - 1
t = t & d.Range(d.Tables(i).Range.End, d.Tables(i + 1).Range.Start)
Next
MsgBox t