Mark was telling us:
Mark nous racontait que :

Here is a little something to get you going. The following assumes that the
first choice in a formfield dropdown is the default one, such as "Choose" or
"Select" or "Pick something!"
As for text input fields, they will be deleted if their content is equal to
the default values, which might be nothing or any text used when designing
the form, such as "Write your name here."

'_______________________________________
Option Explicit
'_______________________________________
Sub DelEmptyFF()

Dim myFFs As FormFields
Dim i As Long

Set myFFs = ActiveDocument.FormFields

ActiveDocument.Unprotect

For i = myFFs.Count To 1 Step -1
   Select Case myFFs(i).Type
       Case wdFieldFormTextInput
           If myFFs(i).Result = myFFs(i).TextInput.Default Then _
               myFFs(i).Range.Delete
       Case wdFieldFormCheckBox
           If myFFs(i).CheckBox.Value = False Then _
               myFFs(i).Range.Delete
       Case wdFieldFormDropDown
           If myFFs(i).DropDown.Value = 1 Then _
               myFFs(i).Range.Delete
   End Select
Next

ActiveDocument.Protect wdAllowOnlyFormFields, True

End Sub
'_______________________________________