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