Macro-commande permettant d’anonymiser les commentaires d’un reviewer 
a posteriori dans un fichier Word

Ouvrez dans Microsoft Word une copie du texte à traiter
Ouvrez VBA (Visual Basic pour Applications) avec les touches [Alt] [F11]
Effectuez les commandes : Insertion\Module

Dans le nouveau module qui s'ouvre collez l'intégralité du texte ci-après, [Sub] et [End Sub] compris
Revenez dans Word, 
la macrocommande "Anonymise_Auteur_Commentaires" se trouve maintenant dans Développeur\Macros. 
IL suffit de double-cliquer dessus pour l'exécuter



 Sub Anonymise_Auteur_Commentaires()

‘ EntendOffice 2018, adaptée en français par Georges Mion, 2023
‘ https://fr.extendoffice.com/documents/word/5513-word-comments-author-name-change.html

    Dim i As Long
    Dim xNewName As String
    Dim xShortName As String
    
    If Selection.Comments.Count = 0 Then
        MsgBox "Il n'y a pas de commentaires dans votre sélection !", vbInformation, « georgesmion.com"
        Exit Sub
    End If
    
    xNewName = InputBox("Nouveau nom d'auteur ?", " georgesmion.com ")
    xShortName = InputBox("Nouvelles initiales de l'auteur ?", " georgesmion.com ")
    
    If xNewName = "" Or xShortName = "" Then
        MsgBox "La réponse ne peut être vide !", vbInformation, " georgesmion.com "
        Exit Sub
    End If
    
    With Selection
        For i = 1 To .Comments.Count
            .Comments(i).Author = xNewName
            .Comments(i).Initial = xShortName
        Next i
    End With
    
End Sub