Objeto Categories (Word)
Representa uma coleção de categorias de bloco de construção.
Comentários
Use o método Item para acessar uma categoria existente. Em seguida, você pode usar a propriedade BuildingBlocks para acessar uma coleção de objetos BuildingBlock para a categoria. O exemplo a seguir imprime os nomes de tipo e categoria de todos os blocos de construção no primeiro modelo para a janela Immediate. (Este exemplo pressupõe que a janela Immediate esteja visível.)
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
Use o método Item para acessar uma categoria existente; para criar uma nova categoria, use o método Add da coleção BuildingBlockEntries . Defina o valor do parâmetro Category.
Para obter mais informações sobre os blocos de construção, consulte Trabalhando com blocos de construção.
Confira também
Referência do modelo de objeto do Word
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.