Word effacer champs formulaire

[jeffe]

Bonjour à vous, j'ai réalisé un formulaire word2016, je voudrais pouvoir effacer tous les contenus via un bouton.
j'ai des checkBoxes à décocher, des contrôles de contenu date à vider des champs texte.
jai essaiyé ceci mais n'efface de les champs date ni remet à O les cases à cocher.

'Sub Effacer()
Dim ff As FormField
 
For Each ff In ActiveDocument.FormFields
ff.Result = ""
Next ff
End Sub

merci

 

[jeffe]

hello, en fait j'ai simplement supprimé la macro, et je me sert de l'extension en modèle .dotx