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.
Uma coleção de todos os objetos WebNavigationBarSet no documento atual. Cada objeto WebNavigationBarSet representa um conjunto de barras de navegação na Web que consiste em hiperligações.
Comentários
Por predefinição, existem dois objetos WebNavigationBarSet em cada página do assistente Web; um é apenas texto e o outro é vertical. Estes objetos correspondem à estrutura do assistente, independentemente de ser utilizada uma barra de navegação na página.
Utilize a propriedade WebNavigationBarSets do documento atual para devolver um objeto WebNavigationBarSets .
Utilize Item (índice), em que o índice é o número do índice, para devolver um objeto WebNavigationBarSet da coleção.
Utilize a propriedade Contar para devolver o número de conjuntos de barras de navegação Na Web na coleção.
Para adicionar a barra de navegação Web especificada a todas as páginas de um documento, utilize os parâmetros Esquerda, Superior e Largura do método AddToEveryPage , em que Esquerda é a distância do lado esquerdo da página até à margem esquerda da barra de navegação, Superior é a distância entre a parte superior da página e a margem superior da barra de navegação, e Largura é a largura da barra de navegação.
Exemplo
O exemplo a seguir define uma variável de objeto à coleção WebNavigationBarSets do documento ativo.
Dim objWebNavBarSets As WebNavigationBarSets
Set objWebNavBarSets = ActiveDocument.WebNavigationBarSets
O exemplo seguinte devolve a primeira barra de navegação Web definida a partir da coleção WebNavigationBarSets .
Dim objWebNavBarSet As WebNavigationBarSet
Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets.Item(1)
O exemplo anterior também pode ser realizado com WebNavigationBarSets (índice), em que o índice é o número do índice, para devolver um objeto WebNavigationBarSet .
Dim objWebNavBarSet As WebNavigationBarSet
Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets(1)
O exemplo anterior também pode ser realizado com WebNavigationBarSets (índice), em que o índice é uma cadeia que indica o nome da barra de navegação Web definida para devolver.
Dim objWebNavBarSet As WebNavigationBarSet
Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets("WebNavBarSet1")
Este exemplo apresenta o número de conjuntos de barras de navegação na Web no documento atual.
MsgBox ActiveDocument.WebNavigationBarSets.Count
O exemplo seguinte adiciona a barra de navegação denominada WebNavBarSet1 a todas as páginas da publicação atual.
ActiveDocument.WebNavigationBarSets.Item _
("WebNavBarSet1").AddToEveryPage _
Left:=50, Top:=25
Métodos
Propriedades
Confira também
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.