По ТекстБоксу на каждую страницу Word-да

Программирование на Visual Basic for Applications
kea
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 07.03.2008 (Пт) 11:08

По ТекстБоксу на каждую страницу Word-да

Сообщение kea » 07.03.2008 (Пт) 11:29

Передо мной встала задача создать документ MS-Word с N страницами и на каждой странице разместить по заданным координатам ТекстБокс неких размеров и с неким текстом.

Записываем макрос, где к открытому новому документу добавляем еще две страницы и вставляем на первую и третью текстбоксы:
//---------------
Selection.InsertBreak Type:=wdPageBreak
Selection.InsertBreak Type:=wdPageBreak
ActiveWindow.ActivePane.VerticalPercentScrolled = 66
ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 185.05, _
303.55, 245.1, 153#).Select
Selection.ShapeRange.TextFrame.TextRange.Select
Selection.Collapse
Selection.TypeText Text:="33333"
Selection.ShapeRange.Select
ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 150.85, _
231.55, 299.25, 162#).Select
Selection.ShapeRange.TextFrame.TextRange.Select
Selection.Collapse
Selection.TypeText Text:="11111"
//---------------

Я в этом макросе не увидел, как выбрать нужную страницу, на которую будем ложить текстбокс, кроме того, если его выполнить, то текстбоксы разместяться на одной последней третьей странице... :-(

Собственно вопрос: как реализовать выбор нужной страницы в документе для размещения текстбоксов, а в общем случае, и других графических объектов?

Ногами просьба сильно не пинать, чтение фагов и поиск по форуму результатов не принес.

kea
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 07.03.2008 (Пт) 11:08

Сообщение kea » 07.03.2008 (Пт) 14:46

Вопрос закрыт.
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:= НомерНужнойСтраницы


Вернуться в VBA

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

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

    TopList