Dim r As Word.RangeSet r = ActiveDocument.Range(1, ActiveDocument.Tables(1).Range.Start)MsgBox r.Text
Dim d As Word.Document, i&, t$Set d = ActiveDocumentFor i = 1 To d.Tables.Count - 1 t = t & d.Range(d.Tables(i).Range.End, d.Tables(i + 1).Range.Start)NextMsgBox t