Compartilhar via


Propriedade WebPageOptions.IncludePageOnNewWebNavigationBars (Publisher)

Retorna ou define um valor booliano que especifica se um link para uma página da Web será adicionado às barras de navegação automáticas de novas páginas. Leitura/gravação.

Sintaxe

expressão. IncludePageOnNewWebNavigationBars

Expressão Uma variável que representa um objeto WebPageOptions .

Valor de retorno

Booliano

Comentários

O valor padrão da propriedade IncludePageOnNewWebNavigationBars é False, o que significa que os links para a página especificada não são adicionados às barras de navegação automáticas de novas páginas.

A definição dessa propriedade como False não remover links para a página especificada de qualquer barras de navegação automática que já incluem-las, mas impede que os links para a página sejam adicionados às barras de navegação automática de novas páginas.

Definir essa propriedade como True aplica-se apenas às barras de navegação automáticas de novas páginas e não atualiza as barras de navegação automáticas existentes na publicação da Web.

Ao adicionar uma nova página à publicação da Web usando o método Pages.Add , o parâmetro opcional AddHyperlinkToWebNavBar pode ser usado para especificar se os links para a nova página são adicionados às barras de navegação automáticas existentes. O valor desse parâmetro é usado para popular o valor da propriedade IncludePageOnNewWebNavigationBars.

Exemplo

O exemplo a seguir especifica que os links para a página dois da publicação web ativa devem ser adicionados às barras de navegação automáticas de novas páginas. Observe que, se uma nova página é adicionada à publicação após esse ponto, a propriedade IncludePageOnNewWebNavigationBars será False.

Dim theWPO As WebPageOptions 
 
Set theWPO = ActiveDocument.Pages(2).WebPageOptions 
With theWPO 
 .IncludePageOnNewWebNavigationBars = True 
End With

O exemplo a seguir demonstra como adicionar duas novas páginas à publicação usando o método Pages. O parâmetro AddHyperlinkToWebNavBar é definido como True, que especifica que os links para essas duas novas páginas adicionados às barras de navegação automática de páginas existentes.

Em seguida, outra página é adicionada à publicação e o parâmetro AddHyperlinkToWebNavBar é omitido. Isso significa que a propriedade IncludePageOnNewWebNavigationBars é False para a página recém-adicionada e links para essa página não serão incluídos em barras de navegação automática 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.