Метод Pages.AddWizardPage (Publisher)

Статья
04/07/2023

Добавляет указанную новую страницу мастера в указанное расположение в публикации.

Синтаксис

expression. AddWizardPage (After, PageType, AddHyperlinkToWebNavBar)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
После	Обязательный	Long	Страница, после которой нужно разместить новую страницу мастера.
PageType	Необязательный	PbWizardPageType	Тип добавляемой страницы мастера. Может быть одной из констант PbWizardPageType , объявленных в библиотеке типов издателя Майкрософт.
AddHyperlinkToWebNavBar	Необязательный	Логический	Указывает, будет ли добавлена ссылка на новую страницу на панели автоматической навигации существующих страниц. По умолчанию используется значение False, что означает, что если этот аргумент опущен, ссылки на эту страницу не будут добавляться на панели автоматической навигации существующих страниц.

Замечания

Страницы мастера можно добавлять только в аналогичные публикации мастера. Например, можно добавить страницу мастера календаря каталога в каталог, но не в информационный бюллетень. При попытке добавить страницу мастера в публикацию другого типа возникает ошибка.

Пример

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

Sub AddNewWizardPage() 
 Dim PubApp As Publisher.Application 
 Dim PubDoc As Publisher.Document 
 Set PubApp = New Publisher.Application 
 Set PubDoc = PubApp.NewDocument(Wizard:=pbWizardCatalogs, _ 
 Design:=7) 
 PubDoc.Pages.AddWizardPage After:=1, _ 
 PageType:=pbWizardPageTypeCatalogCalendar, _ 
 AddHyperLinkToWebNavBar:=True 
 PubApp.ActiveWindow.Visible = True 
End Sub

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

Sub InsertCatalogWizardPage() 
 With ActiveDocument 
 If .Wizard.ID = 161 Then 
 .Pages.AddWizardPage After:=1, _ 
 PageType:=pbWizardPageTypeCatalogForm, _ 
 AddHyperLinkToWebNavBar:=False 
 End If 
 End With 
End Sub

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

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

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