Question

我担心是否有办法（直接或使用VBA）获取构建块组织器中出现的所有构建块的列表，即构建块的名称，Gallery，类别，模板，行为等。我不想提取自动文本部分或类似的东西。我只是希望能够获得并打印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

Word 2007：获取构建块列表？

1 个答案: