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.
Una colección de todos los objetos WebNavigationBarSet del documento actual. Cada objeto WebNavigationBarSet representa un conjunto de barras de navegación web compuesto por hipervínculos.
Comentarios
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.
Use la propiedad WebNavigationBarSets del documento actual para devolver un objeto WebNavigationBarSets .
Use Elemento (índice), donde índice es el número de índice, para devolver un objeto WebNavigationBarSet de la colección.
Use 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 todas las páginas de un documento, use los parámetros Izquierda, Superior y Ancho del método AddToEveryPage , donde Izquierda es la distancia desde la izquierda de la página hasta el borde izquierdo de la barra de navegación, Superior es la distancia desde la parte superior de la página hasta el borde superior de la barra de navegación, y Ancho 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 lograr mediante WebNavigationBarSets (índice), donde índice 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 lograr mediante WebNavigationBarSets (índice), donde índice 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.
MsgBox ActiveDocument.WebNavigationBarSets.Count
En el ejemplo siguiente se agrega la barra de navegación denominada WebNavBarSet1 a cada página 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.