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.