Classe ContentControls (Word VBA)
Collection d’objets ContentControl . Pour utiliser une variable de classe ContentControls, elle doit d'abord être instanciée, par exemple
Dim ccs as ContentControls
Set ccs = ActiveDocument.Range.ContentControls
For Each
Voici un exemple de traitement des éléments ContentControls dans une collection
Dim ccl As ContentControl
For Each ccl In ActiveDocument.Range.ContentControls
Next ccl
Add
Ajoute un nouveau contrôle de contenu, du type spécifié, dans le document actif et renvoie un objet ContentControl qui représente le nouveau contrôle de contenu.
Vous ne pouvez imbriquer des contrôles de contenu qu'au sein de contrôles de contenu de texte enrichi, de contrôles de contenu de galerie de blocs de construction et de contrôles de contenu de groupe.
Dim objCC As ContentControl
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"
Arguments
Optional arguments
Les arguments suivants sont facultatifs
Type (WdContentControlType) - Spécifie le type du contrôle de contenu à insérer dans le document actif.
Ici on trouve valeurs possible pour
Range (Range) - Spécifie où placer le contrôle de contenu dans le document actif.
Count
Renvoie le nombre d'éléments dans la collection ContentControls.
Dim lngCount As Long
lngCount = ActiveDocument.Range.ContentControls.Count
Item
Renvoie un objet ContentControl qui représente le contrôle de contenu spécifié au sein de la collection de contrôles de contenu dans un document.
Item (Index)
Index: Spécifie la position ordinale du contrôle de contenu à renvoyer.
Dim ccl As ContentControl
Set ccl = ActiveDocument.Range.ContentControls(Index:=1)