Objet BuildingBlock (Word)
Représente un bloc de construction dans un modèle. Un bloc de construction est un contenu préconstruit, similaire à l'insertion automatique, qui peut contenir du texte, des images et une mise en forme.
Chaque objet BuildingBlock est un membre des collections BuildingBlocks et BuildingBlockEntries. Blocs de construction sont stockés dans des modèles de Microsoft Word. Par conséquent, pour accéder aux blocs de construction disponibles pour un document, vous devez accéder à un modèle attaché. Blocs de construction intégrés sont stockés dans le modèle nommé « Building Blocks.dotx ».
Pour renvoyer un bloc de construction spécifique, utilisez la méthode Item de la collection ou la collection BuildingBlocks. L'exemple suivant accède au premier bloc de construction dans le premier modèle de la collection Templates.
Dim objTemplate As Template
Dim objBB As BuildingBlock
Set objTemplate = Templates(1)
Set objBB = objTemplate.BuildingBlockEntries.Item(1)
Notes
[!REMARQUE] En fonction de la manière dont vous accédez à la collection, la collection renvoyée peut changer. Par exemple, si vous accédez à une collection de blocs de construction avec un type wdTypeAutoText avec une catégorie « Général », la collection retournée peut être différente de la collection renvoyée si vous accédez à une collection de blocs de construction avec un type wdTypeAutoText une catégorie « Custom ». Il est également différente de la collection renvoyée si vous accédez à la collection de blocs de construction avec un type de wdTypeCustomAutoText avec une catégorie « Général ». Par conséquent, le premier élément dans une collection accédé à partir de la collection BuildingBlockEntries peut différer le premier élément dans la collection accédé depuis la collection BuildingBlocks.
Pour créer un nouveau bloc de construction, vous pouvez utiliser la méthode Add de la collection BuildingBlockEntries ou à la collection BuildingBlocks. Toutefois, la méthode recommandée pour créer un nouveau bloc de construction est à l'aide de la méthode Add pour la collection BuildingBlockEntries. L'exemple suivant ajoute le texte sélectionné à la galerie de blocs de construction en filigranes du premier modèle de la collection 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)
Utilisez la méthode Insert pour insérer un nouveau bloc de construction dans un document. L'exemple suivant montre comment insérer le premier bloc de construction dans le premier modèle du document actif au point d'insertion.
Dim objTemplate As Template
Dim objBB As BuildingBlock
Set objTemplate = Templates(1)
Set objBB = objTemplate.BuildingBlockEntries.Item(1)
objBB.Insert Selection.Range
Utilisez la méthode Delete pour supprimer un bloc de construction dans un modèle. L'exemple suivant supprime le premier bloc de construction du premier modèle de la collection Templates.
Dim objTemplate As Template
Set objTemplate = Templates(1)
objTemplate.BuildingBlockEntries(1).Delete
Blocs de construction sont organisés par catégorie et type. Utilisez la collection BuildingBlockTypes pour accéder aux objets BuildingBlockType individuels. Pour accéder aux objets de catégorie spécifiques, utilisez la collection Categories. Utilisez ensuite la propriété BuildingBlocks pour accéder à la collection BuildingBlocks d’un objet Category . L'exemple suivant imprime les noms de type et de catégorie de tous les blocs de construction du premier modèle dans la Fenêtre Exécution. (Cet exemple suppose que la Fenêtre exécution est visible).
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
Chaque bloc de construction a des propriétés contenant des informations qui lui sont propres, comme Name, Description, Type et Value.
Pour plus d'informations sur les blocs de construction, voir Utilisation des blocs de construction.
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.