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.