Objeto Categories (Word)
Representa uma coleção de categorias de bloco de construção.
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.
Referência do modelo de objeto do Word
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.