Share via

Objet BuildingBlock (Word)

  • Article

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.

Remarques

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)

Remarque

[!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.

Méthodes

Propriétés

Voir aussi

Assistance et commentaires

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.