Извлечь текст между двумя таблицами в Word

[Samyrro054]

Здравствуйте, реально ли средствами VBA извлечь весь текст до первой таблицы и между остальными таблицами (но не после последней таблицы)?

[Samyrro054]

Нашёл решение

Код (vb) Выделить Развернуть

Dim r As Word.Range
Set r = ActiveDocument.Range(1, ActiveDocument.Tables(1).Range.Start)
MsgBox r.Text

Код (vb) Выделить Развернуть

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