Range.FormFields (Word)

Returns a FormFields collection that represents all the form fields in the range.

For information about returning a single member of a collection, see Returning an object from a collection.

myType = ActiveDocument.Sections(2).Range.FormFields(1).Type 
Select Case myType 
 Case wdFieldFormTextInput 
 thetype = "TextBox" 
 Case wdFieldFormDropDown 
 thetype = "DropDown" 
 Case wdFieldFormCheckBox 
 thetype = "CheckBox" 
End Select