[VBA-W] Mettre à Zéro le champ RevisionNumber

[fabou3377]

Bonjour,

je désire mettre à zéro le code dans un document *.dot Word. Le code ci-dessous n'a aucune influence... Merci pour votre aide..

Code :

1
2
3
4
5
6
7
8
Sub ResetRevisionNumber()
' ResetRevisionNumber Macro
 
ActiveDocument.BuiltInDocumentProperties("Revision Number").Value = 0
 
MsgBox (ActiveDocument.BuiltInDocumentProperties("Revision Number").Value)
 
End Sub

[fabou3377]

Bonjour,

N'ayant pas trouvé de solution à mon problème, je me permet de remettre à jour ce sujet.

J'ai créer un modèle word *.dot où l'entête du document possède le champ revision number afin que lorsque les utilisateurs utiliseront ce modèle les versions du document soient incrémentés.

Le problème vient du fait qu'avant de mettre à disposition ce fichier modèle aux utilisateurs, j'aimerais que le champ révision number soit à zéro et non égale aux nombres de modifications exécutés sur le modèle.

Merci d'avance pour votre aide.

[fabou3377]

Bonjour,

je n'ai vraiment pas de solution. Merci de m'aider..

[dadavyvy]

Je ne comprends pas trop; j'ai essayé ce que tu as dit :
un modele.dot ayant comme "Revision Number" = 9.
Quand je double-clique dessus, il m'ouvre un nouveau fichier à partir de ce modèle, qui a un "Revision Number" = 1.

Maintenant je n'ai pas inséré de champ qui y fait référence. Mais certainement ce champ ne doit pas être mis à jour automatiquement quand tu ouvres ce nouveau document. Je pense que tu as besoin de mettre à jour le champ dans l'entête et non pas le valeur de la propriété "Revision Number".