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

Вопрос

Как в Ворде программно узнать номер текущей страницы?

Ответ


Sub sGetPageNum()
Dim sNumPage As String
With Selection.Fields.Add(Selection.Range, wdFieldEmpty, "PAGE ", True)
sNumPage = .Result.Text
End With
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
MsgBox sNumPage
End Sub
немного коряво, но работает:)

Priam