Re,
Voici une methode :
Sub Demo()
Dim MonObjet As FormField, TheType As String
'pour chaque objet de type FormField de la collection "FormFields"
For Each MonObjet In ActiveDocument.FormFields
'si la selection est dans la zone "Range" de mon objet
If Selection.InRange(MonObjet.Range) = True Then
'si le nom est vide
If MonObjet.Name = "" Then
Select Case MonObjet.Type
Case wdFieldFormTextInput
TheType = "TextBox"
Case wdFieldFormDropDown
TheType = "DropDown"
Case wdFieldFormCheckBox
TheType = "CheckBox"
End Select
MsgBox "ce formulaire de type: " & TheType & " n'a pas de nom !"
Else 'comme tout est ok(le nom n'est pas vide, c'est bon objet) le nom de l'objet est renvoyé ici
MsgBox MonObjet.Name
End If
End If
Next
End Sub
je n'ai pas trouvé plus simple... mais je ne dit pas qu'il n'y a pas plus simple.
A+