Как в MS Word определить количество параграфов на определенной странице - VBA

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

Доброго времени суток. У меня такой вопрос: Как в MS Word определить кол-во параграфов на определенной странице?

Решение задачи: «Как в MS Word определить количество параграфов на определенной странице»

textual
                            Листинг программы 
                        

                            'перейти на нужную страницу
Dim oRng As Range
oRng.GoTo What:=wdGoToPage, Which:=wdGoToAbsolut, Count:= 5
'Запомнить начало
Dim Start As Long, End As Long
Start = oRng.Start
'Перейти на следующую страницу
oRng.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:= 1
'Запомнить начало (т.е. конец нужной нам страницы)
End = oRng.Start
'Сформировать новый диапазон
oRng.SetRange(Start, End)
'Узнать количество абзацев:
MsgBox oRng.ComputeStatistics(wdStatisticParagraphs)
                        

Оцени полезность:

6 голосов , оценка 3.833 из 5

Похожие ответы