Форум вопросов и ответов

Форум вопросов и ответов (https://www.otvetnemail.ru/)
-   Новый архив 3 (https://www.otvetnemail.ru/novyj-arhiv-3-813/)
-   -   перечисление всех страниц/Изменение стиля всех страниц в документе? (https://www.otvetnemail.ru/novyj-arhiv-3-813/perechislenie-vseh-stranic-izmenenie-stilya-vseh-stranic-v-dokumente-304734/)

Guest 29.09.2011 23:07

перечисление всех страниц/Изменение стиля всех страниц в документе?
 
Знаю, как на 1-ой странице. МОжно ли получить указатели на все страницы или как-то еречислять их?ЦитироватьSub Margins( )Dim oDocDim oPageStylesDim oStyleDim oViewCursorDim oPageStyleNameDim fromleft%, fromtop%, fromright%, frombottom%oDoc = ThisComponentoViewCursor = oDoc.CurrentController.getViewCursor()oP ageStyleName = oViewCursor.PageStyleNameoPageStyles = oDoc.StyleFamilies.getByName("PageStyles ")oStyle = oPageStyles.getByName(oPageStyleName)'fr omleft, fromtop, fromright, frombottom = whatever you wantoStyle.LeftMargin = fromleftoStyle.TopMargin = fromtop oStyle.RightMargin = fromrightoStyle.BottomMargin = frombottomEnd Sub


Часовой пояс GMT, время: 17:25.


© www.otvetnemail.ru - Форум вопросов и ответов.