Incrémenter un numéro chronologique à chaque création de documen

Bonjour,
je cherche à incrémenter un numéro chronologique à chaque création de document basé sur ce modèle.
j'ai trouvé ça




Créer un nouveau fichier et l'enregistrer en tant que modèle, sous le nom "bon de commande" par exemple.

Créer une macro du nom de "AutoNew" :

Cette macro stocke dans une insertion automatique nommée "numéro" celui attribué au dernier document fondé sur le modèle bon de commande.

Pour initialiser cette insertion automatique, entrer dans le document le numéro qui sera attribué au premier document (moins 1). Sélectionner ce numéro et choisir la commande :

Word 2000 à 2003 : Insertion, Insertion automatique-insertion automatique.
Word 2007 à 2010 : Onglet Insertion ; Groupe Texte, Quickpart, Insertion automatique, Enregistrer la sélection dans la galerie d'insertion automatique

- Taper le nom de l'insertion : "numéro".
- Dans la liste Rechercher dans, sélectionner bon de commande.dot(m) pour l'enregistrer dans le modèle. Cliquer sur Ajouter (2000 à 2003) ou OK (2007 à 2010).
- Effacer le numéro qui a été saisi, enregistrer le modèle et le fermer.

Pour commencer un nouveau bon de commande, choisir Fichier-Nouveau et double-cliquer sur l'icône du modèle Bon de commande. La numérotation se fait et le document est automatiquement sauvegardé (faire attention à se trouver dans le dossier où devra être stocké le bon de commande)

Macro à copier par Alt + F11, coller dans Thisdocument, Fichier, Fermer et retourner à word

Sub AutoNew ()
num = ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value
num = num + 1
ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value = num
num = Right("0000" & num, 4)
Selection.TypeText Text:="Bon de commande No " & num
SendKeys "o"
ActiveDocument.SaveAs FileName:="Bon de commande" & num & ".doc"

mais après plusieurs essais rien ne marche, un message d'erreur apparait je pense que c'est par ce que je bosse sur WORD 2010

Quelqu'un peux m'aider?
merki