Word 2007：获取构建块列表？

Question

我正在说是否有一种方法（直接或使用 VBA）来获取出现在 Building Blocks Organizer 中的所有构建块的列表，即构建块的名称、图库、类别、模板、行为等。我不想提取自动文本部分或类似的内容。我只是希望能够获取并打印 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