Range.FormFields (Word)

Devuelve una colección FormFields que representa todos los campos de formulario del intervalo.

Para obtener información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección.

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