Range.FormFields (Word)
Renvoie une collection FormFields qui représente tous les champs de formulaire contenus dans la plage.
Pour plus d’informations sur le renvoi d’un seul membre d’une collection, voir renvoi d’un objet à partir d’une 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