Метод Pages.Add (Publisher)

Статья
04/07/2023

Добавляет новый объект Page в указанный объект Pages и возвращает новый объект Page .

Синтаксис

expression. Add (Count, After, DuplicateObjectsOnPage, AddHyperlinkToWebNavBar)

Выражение Переменная, представляющая объект Pages .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Count	Обязательный	Long	Количество новых страниц для добавления.
После	Обязательный	Long	Индекс страницы, после которого добавляются новые страницы. Ноль для этого аргумента добавляет новые страницы в начале публикации.
DuplicateObjectsOnPage	Необязательный	Long	Индекс страницы, из которой объекты должны быть скопированы на новые страницы. Если этот аргумент опущен, новые страницы будут пустыми. Значение по умолчанию — -1: не дублировать страницы.
AddHyperlinkToWebNavBar	Необязательный	Логический	Указывает, добавляются ли ссылки на новые страницы на панели автоматической навигации существующих страниц. Если задано значение True, ссылки на новые страницы добавляются только на панели автоматической навигации существующих страниц. Если задано значение False, ссылки на новые страницы не добавляются на панели автоматической навигации существующих или новых страниц, добавленных в будущем. Значение по умолчанию - false.

Возвращаемое значение

Page

Пример

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

Dim pgNew As Page 
 
Set pgNew = ActiveDocument.Pages _ 
 .Add(Count:=4, After:=1, DuplicateObjectsOnPage:=1)

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

Затем в публикацию добавляется другая страница, а элемент AddHyperlinkToWebNavBar опущен. Это означает, что свойство IncludePageOnNewWebNavigationBars имеет значение False для только что добавленной страницы, а ссылки на эту страницу не включаются в автоматические панели навигации существующих страниц.

Dim thePage As page 
Dim thePage2 As page 
 
Set thePage = ActiveDocument.Pages.Add(Count:=2, _ 
 After:=4, AddHyperlinkToWebNavBar:=True) 
 
Set thePage2 = ActiveDocument.Pages.Add(Count:=1, After:=6)

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

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

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