Range.FormFields (Word)

Retorna uma coleção FormFields que representa todos os campos de formulário no intervalo. Somente leitura.

Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção.

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