количество строк на последней странице документа

[Jaroslav]

Добрый день! Как с помощью VBA в Excel узнать количество заполненных строк на последней странице документа Word? Пример выкладываю. В данном примере их должно быть 10.

[EducatedFool]

Если речь про таблицы, то я насчитал 2 строки - по одной в каждой таблице

Если же считать всё подряд - то, конечно, их будет 10 (только уже не строк, а абзацев), но... позвольте узнать, зачем это надо вычислять?

В общем случае, как мне кажется, посчитать их будет затруднительно - поскольку таблица состоит нескольких абзацев
(если смотреть по тому, что возвращает код MsgBox ActiveDocument.Paragraphs.Count)

[Jaroslav]

EducatedFool!
Я делаю много таких файлов. И если перед подписью количество абзацев 4-5 это выглядит на последней странице некрасиво. Поэтому я хочу знать сколько абзацев на последней странице, для того чтобы увеличить междустрочный интервал по всему документу. А как узнать номер последней страницы документа?
MsgBox ActiveDocument.Paragraphs.Count выдает число 13.

[IgorGO]

страниц:
MsgBox ActiveWindow.Panes(1).Pages.Count

вот такая процедура
Selection.EndKey unit:=wdStory
c = 0
Do
l = Selection.MoveUp(wdLine, 1)
c = c + l
Loop Until l = 0
MsgBox c + 1
скажет сколько строк на последней странице

[Jaroslav]

Спасибо, IgorGO

[Jaroslav]

Вот ответ на мой вопрос:

k = ActiveDocument.ComputeStatistics(wdStatisticPages)
            Selection.Goto wdGoToPage, wdGoToAbsolute, k
            c = 1
            Do
                l = Selection.MoveDown(wdLine, 1)
                c = c + l
            Loop Until l = 0
MsgBox c