Объект WebNavigationBarSets (Издатель)
Коллекция всех объектов WebNavigationBarSet в текущем документе. Каждый объект WebNavigationBarSet представляет набор панели веб-навигации, состоящий из гиперссылок.
Замечания
По умолчанию на каждой странице веб-мастера есть два объекта WebNavigationBarSet ; один из них является текстовым, а второй — вертикальным. Эти объекты соответствуют структуре мастера независимо от того, используется ли панель навигации на странице.
Используйте свойство WebNavigationBarSets текущего документа, чтобы вернуть объект WebNavigationBarSets .
Используйте item (index), где index — это номер индекса, чтобы вернуть объект WebNavigationBarSet из коллекции.
Используйте свойство Count , чтобы вернуть количество наборов панели веб-навигации в коллекции.
Чтобы добавить указанную панель веб-навигации на каждую страницу документа, используйте параметры Left, Top и Width метода AddToEveryPage , где Left — это расстояние от левого края страницы до левого края панели навигации, а Top — расстояние от верхней части страницы до верхнего края панели навигации. и Ширина — это ширина панели навигации.
Пример
В следующем примере задается объектная переменная для коллекции WebNavigationBarSets активного документа.
Dim objWebNavBarSets As WebNavigationBarSets
Set objWebNavBarSets = ActiveDocument.WebNavigationBarSets
В следующем примере возвращается первый набор панели веб-навигации из коллекции WebNavigationBarSets .
Dim objWebNavBarSet As WebNavigationBarSet
Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets.Item(1)
Предыдущий пример также можно выполнить с помощью WebNavigationBarSets (index), где index — это номер индекса, чтобы вернуть объект WebNavigationBarSet .
Dim objWebNavBarSet As WebNavigationBarSet
Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets(1)
Предыдущий пример также можно выполнить с помощью WebNavigationBarSets (index), где index — это строка, указывающая имя возвращаемой панели веб-навигации.
Dim objWebNavBarSet As WebNavigationBarSet
Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets("WebNavBarSet1")
В этом примере отображается количество наборов панели веб-навигации в текущем документе.
MsgBox ActiveDocument.WebNavigationBarSets.Count
В следующем примере панель навигации с именем WebNavBarSet1 добавляется на каждую страницу текущей публикации.
ActiveDocument.WebNavigationBarSets.Item _
("WebNavBarSet1").AddToEveryPage _
Left:=50, Top:=25
Методы
Свойства
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.