Word 2007：获取积木列表？

Question

如果有一种方法（直接或使用VBA）获取Building Block Organizer中出现的所有构建基块列表，即构建基块的名称，图库，类别，模板，行为等。我不想提取自动文本部分或类似的东西。我只是希望能够获得并打印Building Blocks Organizer中展示的Bilding Blocks和其他信息的完整列表。

非常感谢！ D

Answer 1

构建块条目存储在几个Word模板文件中。如果要遍历所有可用的构建块，则必须迭代所有已加载的Word模板。您可以使用以下宏来执行此操作：

Sub ListBuildingBlocks() 

    Dim oTemplate As Template 
    Dim oBuildingBlock As BuildingBlock 
    Dim i As Integer 

    For Each oTemplate In Application.Templates 
     For i = 1 To oTemplate.BuildingBlockEntries.Count 
      Set oBuildingBlock = oTemplate.BuildingBlockEntries.item(i) 
      Debug.Print oBuildingBlock.Name + vbTab _ 
       + oBuildingBlock.Type.Name + vbTab _ 
       + oBuildingBlock.Category.Name + vbTab _ 
       + oTemplate.FullName 
     Next 
    Next 

End Sub