Sub ChangeAuteurcommentaire()
'
'
'
i = 1
For Each Comments In ActiveDocument.Comments
With ActiveDocument.Comments(i)
.Author = "CLP"
.Initial = "CLP"
End With
Type: Messages; Utilisateur: mainanjou
Sub ChangeAuteurcommentaire()
'
'
'
i = 1
For Each Comments In ActiveDocument.Comments
With ActiveDocument.Comments(i)
.Author = "CLP"
.Initial = "CLP"
End With
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.