Как средствами VBA извлечь весь текст до первой таблицы и между остальными таблицами, но не после последней таблицы?
Сам нашёл решение.
Макрос
Sub Макрос()
Dim rng As Range
Dim var, i As Long
'1. Извлечение текст от начала файла до первой таблицы.
'1) Присваиваем имя "rng" фрагменту, который находится от начала файла до первой таблицы.
Set rng = ActiveDocument.Range(0, ActiveDocument.Tables(1).Range.Start)
'2) Копируем текст из фрагмента в переменную.
var = rng.Text
'3) Вывод текста в View - Immediate Window.
Debug.Print var
'2. Извлечение текста между таблицами.
For i = 1 To ActiveDocument.Tables.Count - 1
With ActiveDocument
Set rng = .Range(.Tables(i).Range.End, .Tables(i + 1).Range.Start)
End With
var = rng.Text
Debug.Print var
Next
End Sub