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.