Método Pages.AddWizardPage (Publisher)
Adiciona a nova página do assistente especificada a um local especificado em uma publicação.
Sintaxe
expressão. AddWizardPage (After, PageType, AddHyperlinkToWebNavBar)
Expressão Uma variável que representa um objeto Pages .
Parâmetros
Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
---|---|---|---|
After | Obrigatório | Long | A página após à qual colocar a nova página do assistente. |
PageType | Opcional | PbWizardPageType | O tipo de página de assistente a ser adicionado. Pode ser uma das constantes PbWizardPageType declaradas na biblioteca de tipos do Microsoft Publisher. |
AddHyperlinkToWebNavBar | Opcional | Boolean | Especifica se um link para a nova página será adicionado às barras de navegação automática de páginas existentes. O padrão é False, o que significa que se esse argumento for omitido, links para essa página não serão adicionados às barras de navegação automática de páginas existentes. |
Comentários
Você pode adicionar páginas de assistente somente a publicações de assistente semelhantes. Por exemplo, você pode adicionar uma página de Assistente de Calendário de Catálogo a um catálogo mas não a um boletim. Um erro ocorrerá se você tentar adicionar uma página de assistente a um tipo diferente de publicação.
Exemplo
Este exemplo cria uma nova publicação de catálogo, adiciona a página de calendário do assistente após a primeira página do catálogo e adiciona a página como um link para cada conjunto de barras de navegação da Web da publicação.
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
Este exemplo verifica se o documento ativo é um catálogo e, se for, adiciona um formulário de catálogo após a primeira página, mas não adiciona a página como um link em nenhum conjunto de barras de navegação da Web.
Sub InsertCatalogWizardPage()
With ActiveDocument
If .Wizard.ID = 161 Then
.Pages.AddWizardPage After:=1, _
PageType:=pbWizardPageTypeCatalogForm, _
AddHyperLinkToWebNavBar:=False
End If
End With
End Sub
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.