Этот макрос определяет, на какой странице находится текстовый курсор:
Sub Макрос()
MsgBox Selection.Information(wdActiveEndPageNumber)
End Sub
Но когда в файле есть концевая сноска и курсор находится в позиции сносок, которые продолжаются на второй странице, номер страницы определяется неправильно.
Иногда сноски занимают и несколько листов.
Это брак в программе "Word", в VBA.
Если в самом ворде поставить курсор внутрь сносок, которые перетекли на следующую страницу, то в строке состояния будет отображён правильный номер страницы.
Не знаю, как определить номер страницы в этом случае с помощью VBA.
О, я с эти вопросом помню намучился. Так и не нашел решения. Как в этом случает правильно определить номер страницы - загадка.