Сообщество Чайников

Вопрос

Как можно определить номер страницы в Word? Проблема заключается в том, что иногда нумерация начинается с нуля, а номер страницы в верхний/нижний колонтитул не вставлен — обращаться некуда.

Ответ

В Word VBA есть такое propperty как Information. Применяется к объекту Selection или Range с нужным параметром, например:

Определение номера страницы, на которой находится курсор (или оканчивается выделение текста), если нумерация страниц в документе не с первого номера:

Dim pNum As Integer
…
pNum = Selection.Information(wdActiveEndAdjustedPageNumber)

Или вот определение порядкового номера страницы с начала документа для какого-то отрывка текста:

Dim myRange As Range
Dim pNum As Integer
…
Set myRange = …
pNum = myRange.Information(wdActiveEndPageNumber)

А вообще лучше посмотреть help Word VBA, там все параметры Information дадены и расписаны.

Kirill