Informatique Pratique

comment effacer en masse les tag des cocuments word ?

tag = les données dans les propriétes d'un document .doc (auteur, sauvé en dernier par, ...)

je change de boite, je veut reprendre mes documents, mais les renommer correctement pour leur diffusion sur le réseau de l'entreprise..
(>50 .doc, j'ai pas envie de me les faire un par un...)

si vous connaissez un soft, une astuce....
je suis preneur
@+

c cbon vous cassez pas la tête, j'ai fait une macro qui me fait ca au top....

Sub twain54_renameTag()
Dim ws As Word.Document

For Each ws In Application.Documents

ActiveDocument.BuiltInDocumentProperties("Title").Value = ActiveDocument.Name
ActiveDocument.BuiltInDocumentProperties("Author").Value = " twain54"

.... etc...

Next
Next ws

End Sub