Delphi World - Показывать номер страницы
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Показывать номер страницы


 Sub ShowViewPageNo()
    ActiveDocument.Repaginate
    varTotalPages = Selection.Information(wdNumberOfPagesInDocument)
    varVertScrollPercent = ActiveDocument.ActiveWindow _
       .VerticalPercentScrolled
    varViewPage = Int((varVertScrollPercent / 100) * varTotalPages) + 1
    varIPPage = Selection.Information(wdActiveEndPageNumber)
    MsgBox "Your insertion point is on page [" & varIPPage & "]." + _
       "You are looking at page [" & varViewPage & "].""
 End Sub

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования