BuildingBlock オブジェクト (Word)
テンプレートの文書パーツを表します。 文書パーツとは、オートテキストに似た、あらかじめ作成されたコンテンツで、テキスト、画像、形式などを含むことがあります。
注釈
各 BuildingBlock オブジェクトは、 BuildingBlocks および BuildingBlockEntries コレクションのメンバーです。 ビルディング ・ ブロックは、Microsoft Word のテンプレートに格納されます。 したがって、ドキュメントの利用可能なビルディング ・ ブロックにアクセスするに添付されたテンプレートにアクセスする必要があります。 組み込みの文書パーツは、"ビルド パーツ.dotx"という名前のテンプレートに格納されます。
コレクションの Item メソッドまたは BuildingBlocks コレクションを使用して、個々の文書パーツを返します。 次の例では、 Templates コレクションの最初のテンプレートの最初の構成要素にアクセスします。
Dim objTemplate As Template
Dim objBB As BuildingBlock
Set objTemplate = Templates(1)
Set objBB = objTemplate.BuildingBlockEntries.Item(1)
注:
[!メモ] コレクションにアクセスする方法によって返されるコレクションを変更する場合があります。 などの wdTypeAutoText という種類の「一般」カテゴリに、文書パーツ コレクションにアクセスする場合、返されるコレクションが wdTypeAutoText という種類の [カスタム] カテゴリの文書パーツのコレクションにアクセスする場合に返されるコレクションとは異なる場合があります。 WdTypeCustomAutoText の「全般」のカテゴリの種類の文書パーツのコレクションにアクセスする場合に返されるコレクションと異なるもあります。 したがって、 BuildingBlockEntries コレクションからアクセスするコレクションの最初の項目は、 BuildingBlocks コレクションからアクセスするコレクションの最初の項目とは異なる場合があります。
新しい文書パーツを作成するには、BuildingBlockEntries コレクションまたは BuildingBlocks コレクションの Add メソッドを使用します。 ただし、新しい文書パーツを作成するには、BuildingBlockEntries コレクションの Add メソッドを使用することをお勧めします。 次の例では、選択したテキストを Templates コレクションにある最初のテンプレートのウォーターマーク文書パーツ ギャラリーに追加します。
Dim objTemplate As Template
Dim objBB As BuildingBlock
Set objTemplate = Templates(1)
Set objBB = objTemplate.BuildingBlockEntries _
.Add(Name:="New Building Block Entry", _
Type:=wdTypeWatermarks, _
Category:="General", _
Range:=Selection.Range)
文書に新しい文書パーツを挿入するには、 Insert メソッドを使用します。 次の例では、最初のテンプレートの最初の文書パーツを、作業中の文書のカーソル位置に挿入します。
Dim objTemplate As Template
Dim objBB As BuildingBlock
Set objTemplate = Templates(1)
Set objBB = objTemplate.BuildingBlockEntries.Item(1)
objBB.Insert Selection.Range
テンプレートから文書パーツを削除するのにには、 Delete メソッドを使用します。 次の使用例は、 Templates コレクションの最初のテンプレートから最初の文書パーツを削除します。
Dim objTemplate As Template
Set objTemplate = Templates(1)
objTemplate.BuildingBlockEntries(1).Delete
ビルディング ・ ブロックは、カテゴリと種類で編成されます。 個々 の BuildingBlockType オブジェクトにアクセスするのにには、 BuildingBlockTypes コレクションを使用します。 カテゴリ の個々 のオブジェクトにアクセスするのにには、 カテゴリ のコレクションを使用します。 次に、BuildingBlocks プロパティを使用して、Category オブジェクトの BuildingBlocks コレクションにアクセスします。 The following example prints the type and category names of all the building blocks in the first template to the Immediate Window. (この例で、[ イミディ エイト] ウィンドウ が表示されているに)
Dim objTemplate As Template
Dim objBBT As BuildingBlockType
Dim objCat As Category
Dim intCount As Integer
Dim intCountCat As Integer
Set objTemplate = Templates(1)
For intCount = 1 To objTemplate.BuildingBlockTypes.Count
Set objBBT = objTemplate.BuildingBlockTypes(intCount)
If objBBT.Categories.Count > 0 Then
Debug.Print objBBT.Name
For intCountCat = 1 To objBBT.Categories.Count
Set objCat = objBBT.Categories(intCountCat)
Debug.Print vbTab & objCat.Name
Next
End If
Next
各文書パーツには、 Name 、 Description 、 Type 、 Value など、一意に適用される情報が含まれています。
文書パーツの詳細については、「文書パーツを操作する」を参照してください。
メソッド
プロパティ
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。
フィードバック
以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「https://aka.ms/ContentUserFeedback」を参照してください。
フィードバックの送信と表示