Discussion :

[Phil.D]

Bonjour,

Il m'est demandé pour toute une série de documents, de remplacer le nom des différents auteurs de commentaires (mode révision), parfois plusieurs pour un même document, par le nom de la société.
Les tentatives 'manuelles' essayées jusqu'à présent se sont soldées par des échecs, la modification de ces auteurs n'étant pas prise en compte lors de la sauvegarde des documents.

J'ose croire que la manœuvre est possible et que la solution pourrait venir de VBA, mais cela dépasse mes compétences.

Si l'un d'entre vous avait des idées, surtout, n'hésitez pas ....

Merci d'avance

Phil.D

[cerede2000]

Bonjour à toi,

Pour commencer tu aurais eu une réponse plus rapide en postant dans la bonne section (VBA Word )

Pour modifier l'auteur d'un commentaire dans Word en VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
    Dim cmt As Comment
    Set cmt = ActiveDocument.Comments(1)
    cmt.Author = "Toto"
    cmt.Initial = "tt"
End Sub

[Phil.D]

Salut Cerede,

Effectivement, je ferai plus attention la prochaine fois de poster à l'endroit adéquat.
Quoi qu'il en soit, je testerai ta proposition la semaine prochaine, en retournant au boulot.

Juste par curiosité, à quoi sert le (1) dans la ligne
Set cmt = ActiveDocument.Comments(1) ?

Merci à toi en tout cas.

[cerede2000]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set cmt = ActiveDocument.Comments(1)

On récupère le premier objet commentaire du document et on le place dans une variable

C'est plus propre et ça évite de répéter sur chaque lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveDocument.Comments(1).Author = "Toto"
    ActiveDocument.Comments(1).Initial = "tt"

[mainanjou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ChangeAuteurcommentaire()
'
'
'
i = 1
For Each Comments In ActiveDocument.Comments
    With ActiveDocument.Comments(i)
    .Author = "CLP"
    .Initial = "CLP"
End With
i = i + 1
Next
 
End Sub

[Stef01800]

Bonjour,

Est-il possible de faire la même chose mais avec les révisions à la place des commentaires ?


Merci d'avance.

Bonne journée.

Stef

[November-Oscar]

Bonjour
Je réponds au précédent commentaire en relançant ce sujet.
J'ai l'impression que la propriété Author pour les Revisions n'est pas modifiable par du code... même si elle l'est pour les commentaires.
Quelqu'un peut-il confirmer ? Et comment savoir si une propriété est modifiable ou non ?
Merci