Partager via


Insertion d’un contrôle de contenu dans un bloc de construction

Les blocs de construction et les contrôles de contenu offrent une très grande flexibilité. Vous pouvez créer des blocs de construction contenant des contrôles de contenu ou créer des contrôles de contenu utilisant des blocs de construction pour présenter à l'utilisateur des listes de choix élaborées. Cette rubrique explique comment insérer un contrôle de contenu dans un bloc de construction que les utilisateurs pourront ensuite insérer dans leurs documents.

Les objets utilisés dans cet exemple sont les suivants :

Le code suivant insère un contrôle de contenu dans le document actif, puis ajoute ce contrôle à la collection de blocs de construction figurant dans le modèle joint au document actif.

Sub InsertContentControlIntoBuildingBlock() 
 Dim objCC As ContentControl 
 Dim objBB As BuildingBlock 
 Dim objTemplate As Template 
 Dim objRange As Range 
 
 Set objTemplate = ActiveDocument.AttachedTemplate 
 Set objCC = ActiveDocument.Range.ContentControls _ 
 .Add(wdContentControlComboBox) 
 
 objCC.DropdownListEntries.Add "Outstanding" 
 objCC.DropdownListEntries.Add "Good" 
 objCC.DropdownListEntries.Add "Fair" 
 
 Set objRange = ActiveDocument.Range 
 Set objBB = objTemplate.BuildingBlockEntries.Add("OGF Rating Scale", _ 
 wdTypeCustom1, "Ratings", objRange) 
End Sub

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.