Método Pages.Add (Publisher)
Adiciona um novo objeto Page ao objeto Pages especificado e retorna o novo objeto Page .
Sintaxe
expressão. Adicionar (Count, After, DuplicateObjectsOnPage, AddHyperlinkToWebNavBar)
Expressão Uma variável que representa um objeto Pages .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Count | Obrigatório | Long | O número de páginas novas a serem adicionadas. |
| Depois | Obrigatório | Long | O índice da página depois da qual serão adicionadas as páginas novas. Se esse argumento for zero, as páginas novas serão adicionadas no início da publicação. |
| DuplicateObjectsOnPage | Opcional | Long | O índice da página de onde os objetos devem ser copiados para as páginas novas. Se esse argumento for omitido, as páginas novas ficarão em branco. O padrão é -1: não duplicar páginas. |
| AddHyperlinkToWebNavBar | Opcional | Boolean | Especifica se os links para as novas páginas são adicionados às barras de navegação automáticas das páginas existentes. Se True, os links para as novas páginas serão adicionados apenas às barras de navegação automáticas das páginas existentes. Se False, os links para as novas páginas não serão adicionados às barras de navegação automáticas de páginas existentes ou novas páginas adicionadas no futuro. O padrão é False. |
Valor de retorno
Page
Exemplo
O exemplo a seguir adiciona quatro novas páginas após a primeira página na publicação e copia todos os objetos da primeira página para as novas páginas.
Dim pgNew As Page
Set pgNew = ActiveDocument.Pages _
.Add(Count:=4, After:=1, DuplicateObjectsOnPage:=1)
O exemplo a seguir demonstra a adição de duas novas páginas à publicação e a configuração do parâmetro AddHyperlinkToWebNavBar como True nessas duas páginas. Isso especifica que os links para essas duas novas páginas serão adicionados às barras de navegação automática das páginas existentes e daquelas adicionadas no futuro.
Outra página é adicionada à publicação e AddHyperlinkToWebNavBar for omitido. Isso significa que a propriedade IncludePageOnNewWebNavigationBars é False para a página recém-adicionada e os links para esta página não estão incluídos nas barras de navegação automáticas de 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)
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.