Определить конец страницы word - VBA

Формулировка задачи:

Подскажите пожалуйста, есть программа которая открывает документ word переводит его в текстовый файл и записывает данные в таблицы excel. Нужно вот что изменить, сейчас в коде определен конец страницы как номер строки, 52. While Nstr < 52 *** Wend Нужно сделать чтобы программа сама определяла где конец страницы, Nend While Nstr < Nend *** Wend Вопрос в том как определить Nend, я думаю это можно сделать при помощи цикла, который должен считывать строки и когда доходит до строки, выделенной на прикрепленной картинке, вычесть 3 строки и это будет конец страницы. Nend = Nstr - 3 Не получается написать этот цикл.

Do While Nstr > 14 'пропустить шапку
If Left(Source, 3) = "---" Then
Exit Do
End If
Nend = Nstr - 3
Loop

Решение задачи: «Определить конец страницы word»

textual
                            Листинг программы 
                        
                              Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="3"