This example retrieves the text of the active item from the drop-down form field named "DropDown1."
Set myField = ActiveDocument.FormFields("DropDown1").DropDown
num = myField.Value
myName = myField.ListEntries(num).Name
This example retrieves the total number of items in the active drop-down form field (the document should be protected for forms). If there are two or more items, this example sets the second item as the active item.
Set myField = Selection.FormFields(1)
If myfield.Type = wdFieldFormDropDown Then
num = myField.DropDown.ListEntries.Count
If num >= 2 Then myField.DropDown.Value = 2
End If