Word VBA Макросы: Как средствами VBA извлечь весь текст до первой таблицы и между остальными таблицами?

[Бульдог]

Как средствами 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

[свернуть]