Word) (Categories 对象
代表构建基块类别的集合。
使用 Item 方法访问现有类别。 然后,可以使用 BuildingBlocks 属性访问类别的 BuildingBlock 对象的集合。 以下示例将第一个模板中所有构建基块的类型和类别名称打印到 “即时窗口”。 (此示例假定 即时窗口 可见。)
Dim objTemplate As Template
Dim objBBT As BuildingBlockType
Dim objCat As Category
Dim intCount As Integer
Dim intCountCat As Integer
Set objTemplate = Templates(1)
For intCount = 1 To objTemplate.BuildingBlockTypes.Count
Set objBBT = objTemplate.BuildingBlockTypes(intCount)
If objBBT.Categories.Count > 0 Then
Debug.Print objBBT.Name
For intCountCat = 1 To objBBT.Categories.Count
Set objCat = objBBT.Categories(intCountCat)
Debug.Print vbTab & objCat.Name
Next
End If
Next
使用 Item 方法访问现有类别;若要创建新类别,请使用 BuildingBlockEntries 集合的 Add 方法。 设置类别参数的值。
有关构建基块的详细信息,请参阅处理构建基块。
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。