Конец страницы документа Word, если в док.нет разрывов стран

Программирование на Visual Basic for Applications
Vitaly1
Брехман
Брехман
 
Сообщения: 1578
Зарегистрирован: 30.12.2002 (Пн) 16:35
Откуда: Russia, Mosсow

Конец страницы документа Word, если в док.нет разрывов стран

Сообщение Vitaly1 » 12.05.2003 (Пн) 11:59

Можно ли каким либо образом определить начало и конец страницы Word (номер строки, или номер символа, или т.п.), если не проставленны в документе разрывы страниц?

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 12.05.2003 (Пн) 16:34

А что если сдвинуть Selection на начало так:



Код: Выделить всё
Selection.GoTo wdPageStart, wdGotoAbsolute, NumberOfPageINeed




А потом посмотреть параметры через Selection.Information или просто посмотреть Selection.Range?

Vitaly1
Брехман
Брехман
 
Сообщения: 1578
Зарегистрирован: 30.12.2002 (Пн) 16:35
Откуда: Russia, Mosсow

Сообщение Vitaly1 » 14.05.2003 (Ср) 15:14

Примерно так я и сделал, вот алгоритм перебора страниц:
Код: Выделить всё
  Selection.HomeKey Unit:=wdStory
    Do
    i = Selection.Range.End
    Application.Browser.Next
    Loop Until i = Selection.Range.End

Vitaly1
Брехман
Брехман
 
Сообщения: 1578
Зарегистрирован: 30.12.2002 (Пн) 16:35
Откуда: Russia, Mosсow

Сообщение Vitaly1 » 14.05.2003 (Ср) 16:31

RayShade
Все равно, спасибо за идею :D


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 59

    TopList