vba - Word 2007：获取构建块列表？

Question

如果有办法（直接或使用 VBA）获取出现在 Building Blocks Organizer 中的所有构建块的列表，即构建块的名称、Gallery、Category、the模板、行为等。我不想提取自动文本部分或类似的东西。我只是希望能够获取并打印 Bilding Blocks 的完整列表以及 Building Blocks Organizer 中显示的其余信息。

非常感谢！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