Объект 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
- Application
- Background
- Footer
- Header
- Height
- IgnoreMaster
- IsLeading
- IsTrailing
- IsTwoPageMaster
- IsWizardPage
- LayoutGuides
- Master
- Name
- PageID
- PageIndex
- PageNumber
- PageType
- Parent
- ReaderSpread
- RulerGuides
- Shapes
- Tags
- WebPageOptions
- Width
- Wizard
- XOffsetWithinReaderSpread
- YOffsetWithinReaderSpread
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.