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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question