Прочитать на английском

Поделиться через


Объект Page (Publisher)

Представляет страницу в публикации. Коллекция Pages содержит все объекты Page в публикации.

Замечания

Используйте Pages (индекс), чтобы вернуть один объект Page .

Используйте свойство FindByPageID объекта Pages , чтобы найти объект Page с помощью идентификатора страницы, назначаемого приложением.

Используйте метод Add , чтобы создать новую страницу и добавить ее в публикацию.

Пример

В следующем примере к первой фигуре на первой странице активной публикации добавляется новый текст.

Sub AddPageNumberField() 
 With ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange 
 .InsertAfter " This text is added after the existing text." 
 .Font.Size = 15 
 End With 
End Sub

В следующем примере добавляется новая страница в активную публикацию, а затем выполняется поиск этой страницы с помощью идентификатора страницы.

Sub FindPage() 
 Dim lngPageID As Long 
 
 'Get page ID 
 lngPageID = ActiveDocument.Pages.Add(Count:=1, After:=1).PageID 
 
 'Use page ID to add a new shape to the page 
 ActiveDocument.Pages.FindByPageID(PageID:=lngPageID) _ 
 .Shapes.AddShape Type:=msoShape5pointStar, _ 
 Left:=200, Top:=72, Width:=50, Height:=50 
 
End Sub

Методы

Свойства

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.