Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Crée une nouvelle entrée du bloc de construction dans un modèle et renvoie un objet BuildingBlock qui la représente.
Syntaxe
expression. Add (Name, Type, Category, Range, Description, InsertOptions)
expression Expression qui renvoie un objet « BuildingBlockEntries ».
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Name | Obligatoire | Chaîne | Spécifie le nom de l'entrée du bloc de construction. Correspond à la propriété Name de l'objet BuildingBlock. |
| Type | Obligatoire | WdBuildingBlockTypes | Spécifie le type de bloc de construction à créer. Correspond à la propriété Type de l'objet BuildingBlock. |
| Category | Obligatoire | Chaîne | Spécifie la catégorie de la nouvelle entrée du bloc de construction. Correspond à la propriété Category de l'objet BuildingBlock. |
| Range | Obligatoire | Range | Spécifie la valeur de l'entrée du bloc de construction. Correspond à la propriété Value de l'objet BuildingBlock. |
| Description | Facultatif | Variant | Spécifie la description de l'entrée du bloc de construction. Correspond à la propriété Description de l'objet BuildingBlock. |
| InsertOptions | Facultatif | WdDocPartInsertOptions | Spécifie si l'entrée du bloc de construction est insérée dans une page, un paragraphe ou en ligne. En cas d'omission, la valeur par défaut est wdInsertContent. Correspond à la propriété InsertOptions de l'objet BuildingBlock. |
Valeur renvoyée
BuildingBlock
Exemple
L'exemple suivant crée une nouvelle entrée du bloc de construction, l'ajoute au modèle attaché au document actif, puis définit la valeur du bloc de construction sur le texte sélectionné.
Dim objTemplate As Template
Dim objBB As BuildingBlock
Set objTemplate = ActiveDocument.AttachedTemplate
Set objBB = objTemplate.BuildingBlockEntries.Add("Author Name", _
wdTypeCustomTextBox, "Custom", Selection.Range)
Voir aussi
BuildingBlockEntries, Collection
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.