Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Colección de todos los objetos WebNavigationBarSet del documento actual. Cada objeto WebNavigationBarSet representa un conjunto de barras de navegación web que consta de hipervínculos.
Observaciones
De forma predeterminada, hay dos objetos WebNavigationBarSet en cada página del asistente web; una es de solo texto y la otra es vertical. Estos objetos corresponden al diseño del asistente independientemente de si se usa una barra de navegación en la página.
Utilice la propiedad WebNavigationBarSets del documento actual para devolver un objeto WebNavigationBarSets .
Use Item (index), donde index es el número de índice, para devolver un objeto WebNavigationBarSet de la colección.
Utilice la propiedad Count para devolver el número de conjuntos de barras de navegación web de la colección.
Para agregar la barra de navegación web especificada a cada página de un documento, use los parámetros Left, Top y Width del método AddToEveryPage , donde Left es la distancia desde la izquierda de la página hasta el borde izquierdo de la barra de navegación, Top es la distancia desde la parte superior de la página hasta el borde superior de la barra de navegación, y Width es el ancho de la barra de navegación.
Ejemplo
En el ejemplo siguiente se establece una variable de objeto a la colección WebNavigationBarSets del documento activo.
Dim objWebNavBarSets As WebNavigationBarSets
Set objWebNavBarSets = ActiveDocument.WebNavigationBarSets
En el ejemplo siguiente se devuelve el primer conjunto de barras de navegación web de la colección WebNavigationBarSets .
Dim objWebNavBarSet As WebNavigationBarSet
Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets.Item(1)
El ejemplo anterior también se puede realizar mediante WebNavigationBarSets (index), donde index es el número de índice, para devolver un objeto WebNavigationBarSet .
Dim objWebNavBarSet As WebNavigationBarSet
Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets(1)
El ejemplo anterior también se puede realizar mediante WebNavigationBarSets (index), donde index es una cadena que indica el nombre de la barra de navegación web establecida para devolver.
Dim objWebNavBarSet As WebNavigationBarSet
Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets("WebNavBarSet1")
En este ejemplo se muestra el número de conjuntos de barras de navegación web en el documento actual.
MsgBox ActiveDocument.WebNavigationBarSets.Count
En el ejemplo siguiente se agrega la barra de navegación denominada WebNavBarSet1 a todas las páginas de la publicación actual.
ActiveDocument.WebNavigationBarSets.Item _
("WebNavBarSet1").AddToEveryPage _
Left:=50, Top:=25
Métodos
Propiedades
Vea también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.