Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Adiciona um novo objeto Página ao objeto Páginas especificado e devolve o novo objeto Página .
Sintaxe
expressão. Adicionar (Count, After, DuplicateObjectsOnPage, AddHyperlinkToWebNavBar)
expressão Uma variável que representa um objeto Páginas .
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. A predefinição é -1: não duplicar páginas. |
| AddHyperlinkToWebNavBar | Opcional | Boolean | Especifica se as ligações para as novas páginas são adicionadas às barras de navegação automática das páginas existentes. Se for Verdadeiro, as ligações para as novas páginas são adicionadas apenas às barras de navegação automática das páginas existentes. Se for Falso, as ligações para as novas páginas não são adicionadas às barras de navegação automática de páginas existentes ou novas páginas adicionadas no futuro. O padrão é False. |
Valor de retorno
Page
Exemplo
O exemplo seguinte 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. Isto significa que a propriedade IncludePageOnNewWebNavigationBars é False para a página adicionada recentemente e as ligações para esta página não estão incluídas nas barras de navegação automática das 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.