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 un nuevo objeto Page al objeto Pages especificado y devuelve el nuevo objeto Page .
Sintaxis
expresión. Add (Count, After, DuplicateObjectsOnPage, AddHyperlinkToWebNavBar)
expresión Variable que representa un objeto Pages .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Count | Obligatorio | Long | El número de páginas nuevas que se va a agregar. |
| After | Obligatorio | Long | El índice de página de la página después de la que se van a agregar las páginas nuevas. Si este argumento es cero se agregan las nuevas páginas al inicio de la publicación. |
| DuplicateObjectsOnPage | Opcional | Long | El índice de página de la página desde la que se copiarán los objetos a las páginas nuevas. Si se omite este argumento, las nuevas páginas estarán en blanco. El valor predeterminado es -1: no duplicar páginas. |
| AddHyperlinkToWebNavBar | Opcional | Boolean | Especifica si los vínculos a las nuevas páginas se agregan a las barras de navegación automática de las páginas existentes. Si es True, los vínculos a las nuevas páginas se agregan solo a las barras de navegación automática de las páginas existentes. Si es False, los vínculos a las nuevas páginas no se agregan a las barras de navegación automática de las páginas existentes o a las nuevas páginas agregadas en el futuro. El valor predeterminado es Falso. |
Valor devuelto
Page
Ejemplo
En el ejemplo siguiente se agregan cuatro páginas nuevas después de la primera página de la publicación y se copian todos los objetos de la primera página en las nuevas páginas.
Dim pgNew As Page
Set pgNew = ActiveDocument.Pages _
.Add(Count:=4, After:=1, DuplicateObjectsOnPage:=1)
El ejemplo siguiente se muestra cómo agregar dos páginas nuevas a la publicación y establecer el valor del parámetro AddHyperlinkToWebNavBar en True para estas dos páginas. Esto especifica que los vínculos a estas dos páginas nuevas se agregarán a las barras de exploración automática de las páginas existentes y los agregados en el futuro.
Otra página, a continuación, se agrega a la publicación y se omite AddHyperlinkToWebNavBar. Esto significa que la propiedad IncludePageOnNewWebNavigationBars es False para la página recién agregada y los vínculos a esta página no se incluyen en las barras de navegación automática de las páginas existentes.
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)
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.