Les contrôles de contenu
Uniquement à partir de Word 2007
Sub maliste()
With ActiveDocument.ContentControls(1)
.DropdownListEntries.Add "item1"
.DropdownListEntries.Add "item2"
.DropdownListEntries.Add "item3"
End With
End Sub
Et voici un code plus élaboré, surtout si les listes sont longues :
Sub maliste()
listes_item = "Item1,Item2,Item3,Item4,Item5,Item6"
With ActiveDocument.ContentControls(1)
For i = 0 To UBound(Split(listes_pays, ","))
.DropdownListEntries.Add Split(listes_pays, ",")(i)
Next
End With
End Sub
Voyez dans cet article les différentes méthodes pour faire référence aux contrôles de contenu.