Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Agrega la nueva página de asistente especificada en una ubicación especificada de la publicación.
Sintaxis
expresión. AddWizardPage (After, PageType, AddHyperlinkToWebNavBar)
expresión Variable que representa un objeto Pages .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| After | Obligatorio | Long | Página después de la que se va a colocar la nueva página de asistente. |
| PageType | Opcional | PbWizardPageType | Tipo de página de asistente que se va a agregar. Puede ser una de las constantes PbWizardPageType declaradas en la biblioteca de tipos de Microsoft Publisher. |
| AddHyperlinkToWebNavBar | Opcional | Boolean | Especifica si un vínculo a la nueva página se agregarán a las barras de exploración automática de las páginas existentes. Valor predeterminado es False, lo que significa que, si se omite este argumento, no se agregarán vínculos a esta página a las barras de exploración automática de las páginas existentes. |
Observaciones
Únicamente se pueden agregar páginas de asistente a publicaciones de asistentes parecidas. Por ejemplo, puede agregar una página Asistente para calendarios de catálogos a un catálogo, pero no a un boletín. Si intenta agregar una página de asistente a un tipo de publicación distinto se produce un error.
Ejemplo
En este ejemplo se crea una nueva publicación de catálogo, se agrega la página del calendario del asistente después de la primera página del catálogo y se agrega la página como un vínculo a cada conjunto de barras de navegación web de la publicación.
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
En este ejemplo se comprueba que el documento activo es un catálogo y, si es así, agrega un formulario de catálogo después de la primera página, pero no agrega la página como un vínculo en ningún conjunto de barras de navegación web.
Sub InsertCatalogWizardPage()
With ActiveDocument
If .Wizard.ID = 161 Then
.Pages.AddWizardPage After:=1, _
PageType:=pbWizardPageTypeCatalogForm, _
AddHyperLinkToWebNavBar:=False
End If
End With
End Sub
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.