表の次のパラグラフを取得したい

moug.netで教えて頂いた、「表の次のパラグラフを取得する」方法

Dim tbl As Table
Dim pra As Paragraph
Set tbl = ActiveDocument.Tables(1)
Set pra = tbl.Range.Paragraphs.Last.Next
'pra.Range.Select

これはWord文書の管理形式が擬似オブジェクト（≒擬似ツリー）に過ぎない事を表す端的な例です。