WebNavigationBarSets 对象 (Publisher)

当前文档中所有 WebNavigationBarSet 对象的集合。每个 WebNavigationBarSet 对象都表示由超链接组成的 Web 导航栏集。

备注

默认情况下，每个 Web 向导页上有两个 WebNavigationBarSet 对象;一个是纯文本，另一个是垂直的。无论页面上是否使用导航栏，这些对象都对应于向导的设计。

使用当前文档的 WebNavigationBarSets 属性可返回 WebNavigationBarSets 对象。

使用 Item (索引) （其中 index 是索引号）从集合返回 WebNavigationBarSet 对象。

使用 Count 属性可返回集合中 Web 导航栏集的数目。

若要将指定的 Web 导航栏添加到文档的每一页，请使用 AddToEveryPage 方法的 Left、Top 和 Width 参数，其中 Left 是页面左侧到导航栏左边缘的距离，Top 是从页面顶部到导航栏上边缘的距离， 和宽度 是导航栏的宽度。

下面的示例将对象变量设置为活动文档的 WebNavigationBarSets 集合。

Dim objWebNavBarSets As WebNavigationBarSets 
Set objWebNavBarSets = ActiveDocument.WebNavigationBarSets

以下示例返回 WebNavigationBarSets 集合中的第一个 Web 导航栏集。

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 是一个字符串，指示要返回的 Web 导航栏的名称。

Dim objWebNavBarSet As WebNavigationBarSet 
Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets("WebNavBarSet1")

本示例显示当前文档中的 Web 导航栏集数。

MsgBox ActiveDocument.WebNavigationBarSets.Count

以下示例将名为 WebNavBarSet1 的导航栏添加到当前出版物中的每个页面。

ActiveDocument.WebNavigationBarSets.Item _ 
 ("WebNavBarSet1").AddToEveryPage _ 
 Left:=50, Top:=25

有关于 Office VBA 或本文档的疑问或反馈？请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。