Objet ContentControls (Word)

  • Article

Collection d'objets ContentControl. Les contrôles de contenu sont des régions liées et potentiellement étiquetées d'un document qui servent de conteneur pour des types de contenu spécifiques. Chaque contrôle de contenu peut comporter des dates, des listes ou des paragraphes de texte mis en forme.

Remarques

Utilisez la méthode Add pour créer un contrôle de contenu et l'insérer dans un document. L'exemple ci-dessous montre comment créer un contrôle de contenu de liste déroulante et ajouter plusieurs éléments dans la liste.

Dim objcc As ContentControl 
Dim objMap As XMLMapping 
 
Set objcc = ActiveDocument.ContentControls.Add(wdContentControlDropdownList) 
objcc.Title = "My Favorite Animal" 
If objcc.ShowingPlaceholderText Then _ 
 objcc.SetPlaceholderText , , "Select your favorite animal " 
 
'List entries 
objcc.DropdownListEntries.Add "Cat" 
objcc.DropdownListEntries.Add "Dog" 
objcc.DropdownListEntries.Add "Horse" 
objcc.DropdownListEntries.Add "Monkey" 
objcc.DropdownListEntries.Add "Snake" 
objcc.DropdownListEntries.Add "Other"

Utilisez la méthode Item pour accéder à un contrôle de contenu spécifique dans la collection. L’exemple suivant accède au troisième contrôle de contenu du document actif et, si le contrôle est une liste déroulante ou une zone de liste déroulante, déplace le premier élément vers le bas de la liste et le dernier élément vers le haut de la liste.

Dim objcc As ContentControl 
Dim objLE1 As ContentControlListEntry 
Dim objLE2 As ContentControlListEntry 
Dim intCount As Integer 
 
Set objcc = ActiveDocument.ContentControls.Item(3) 
 
If objcc.Type = wdContentControlComboBox Or _ 
 objcc.Type = wdContentControlDropdownList Then 
 
 'First item in the list. 
 Set objLE1 = objcc.DropdownListEntries.Item(1) 
 
 'Last item in the list. 
 Set objLE2 = objcc.DropdownListEntries.Item(objcc.DropdownListEntries.Count) 
 
 For intCount = 1 To objcc.DropdownListEntries.Count 
 'Move the first item down one. 
 objLE1.MoveDown 
 
 'Move the last item up one. 
 objLE2.MoveUp 
 Next 
 
End If

Utilisez l'objet ContentControl pour travailler avec des contrôles de contenu individuels. Pour plus d’informations, voir Utilisation des contrôles de contenu.

Méthodes

Nom
Add
Élément

Propriétés

Nom
Application
Count
Creator
Parent

Voir aussi

Référence du modèle objet Word

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.