Add Method (ListEntries Collection) Example
This example inserts a drop-down form field in the active document and then adds the items "Red," "Blue," and "Green" to the form field.
Set myField = ActiveDocument.FormFields.Add(Range:= _
Selection.Range, Type:= wdFieldFormDropDown)
With myField.DropDown.ListEntries
.Add Name:="Red"
.Add Name:="Blue"
.Add Name:="Green"
End With