カスタム文書パーツ ギャラリーを作成する

文書パーツ ギャラリーは、同じ種類の文書パーツのコレクションです。 作成できる文書パーツ コレクションには 32 種類あります ( WdBuildingBlockTypes 列挙型を 使用)。 これらの種類のそれぞれがギャラリーです。 Word は、これらのギャラリーの一部を組み込みの文書パーツ コレクションとして提供しますが、そのほとんどは、独自の文書パーツを整理できるように提供されています。

カスタム ギャラリーの柔軟性を高めるために各ギャラリー内にカテゴリを作成することで、カスタム文書パーツをさらに整理することができます。

このサンプルで使用されているオブジェクトは次のとおりです。

• Template

• Range

• BuildingBlockEntries

• BuildingBlock

サンプル

次の例は、3 つの文書パーツを含む文書パーツ ギャラリーを作成します。

注:

[!メモ] この例では、文書に 3 つ以上の段落があることを前提にしています。

Sub CreateBuildingBlockGallery() 
 Dim objTemplate As Template 
 Dim conType As WdBuildingBlockTypes 
 Dim objRange As Range 
 
 Set objTemplate = ActiveDocument.AttachedTemplate 
 conType = wdTypeCustom1 
 
 Set objRange = ActiveDocument.Paragraphs(1).Range 
 objTemplate.BuildingBlockEntries.Add _ 
 "Heading 1", conType, "Main Headings", objRange 
 
 Set objRange = ActiveDocument.Paragraphs(2).Range 
 objTemplate.BuildingBlockEntries.Add _ 
 "Heading 2", conType, "Secondary Headings", objRange 
 
 Set objRange = ActiveDocument.Paragraphs(3).Range 
 objTemplate.BuildingBlockEntries.Add _ 
 "Heading 3", conType, "Tertiary Headings", objRange 
End Sub

関連項目

• 文書パーツの操作

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。