1

ビルディングブロックオーガナイザーに表示されるすべてのビルディングブロックのリスト、つまり、ビルディングブロックの名前、ギャラリー、カテゴリ、テンプレート、動作など。オートテキスト部分などを抽出したくありません。Bilding Blocksの完全なリストと、BuildingBlocksOrganizerで支払われる残りの情報を取得して印刷できるようにしたいだけです。

どうもありがとう!D

4

1 に答える 1

4

ビルディングブロックエントリは、いくつかの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
于 2013-03-04T10:46:12.453 に答える