Note: The other languages of the website are Google-translated. Back to English

Comment changer le nom de l'auteur pour un commentaire dans Word

Cet article parle de la modification du nom d'auteur par défaut pour les commentaires ou de la modification du nom de l'auteur existant dans un document par un nouveau. Veuillez essayer les deux méthodes ci-dessous.

Modifier le nom de l'auteur des commentaires pour une utilisation future

Modifier le nom d'auteur des commentaires existants d'un document


Modifier le nom de l'auteur des commentaires pour une utilisation future

Si vous souhaitez modifier le nom de l'auteur du commentaire pour une utilisation future, veuillez modifier le nom d'utilisateur dans la fenêtre Options Word.

1. Dans un document Word ouvert, cliquez sur Déposez le > Options. Dans le Options de Word , assurez-vous que vous vous trouvez dans la Généralités onglet, changez le nom dans le nom d'utilisateur comme ci-dessous la capture d'écran montrée, et enfin cliquez sur le OK .

Vous avez maintenant modifié le nom d'utilisateur par défaut pour les commentaires dans un document Word.


Modifier le nom d'auteur des commentaires existants d'un document

Si vous avez reçu un document contenant de nombreux commentaires et que vous souhaitez remplacer tous les noms d'auteur des commentaires par un certain nom, le code VBA suivant vous rendra service.

1. Sélectionnez la plage contenant des commentaires ou sélectionnez l'ensemble du document, vous modifierez les noms des auteurs en appuyant sur la touche Ctrl + A touches, appuyez sur les autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Dans l'ouverture Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Copiez ensuite le code VBA ci-dessous dans la fenêtre Module.

Code VBA : modifier le nom de l'auteur des commentaires existants du document

Sub ChangeCommentAuthor()
'Updated by EntendOffice 20181112
    Dim I As Long
    Dim xNewName As String
    Dim xShortName As String
    If Selection.Comments.Count = 0 Then
        MsgBox "No comments in your selection!", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    xNewName = InputBox("New author name?", "KuTools for Word")
    xShortName = InputBox("New author initials?", "KuTools for Word")
    If xNewName = "" Or xShortName = "" Then
        MsgBox "The author name/initials can’t be empty.", vbInformation, "Kutools for Word"
        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

3. appuie sur le F5 clé pour exécuter le code. Dans l'ouverture Commentaires Nom de l'auteur boîte de dialogue, entrez le nouveau nom de l'auteur dans la zone de texte et cliquez sur le bouton OK .

4. Dans la prochaine ouverture Commentaires initiales boîte de dialogue, entrez les initiales dont vous avez besoin et cliquez sur le OK .

Ensuite, tous les noms d'auteur des commentaires dans la plage sélectionnée sont immédiatement modifiés par celui spécifié, comme illustré ci-dessous.


Outils de productivité Word recommandés

 

Kutools For Word - Plus de 100 fonctionnalités avancées pour Word, enregistrez votre
50 %
Temps écoulé

  • Les opérations compliquées et répétées peuvent être effectuées une seule fois en quelques secondes.
  • Insérez simultanément plusieurs images dans des dossiers dans un document Word.
  • Fusionner et combiner plusieurs fichiers Word dans des dossiers en un seul avec l'ordre souhaité.
  • Divisez le document actuel en documents séparés selon l'en-tête, le saut de section ou d'autres critères.
  • Convertissez des fichiers entre Doc et Docx, Docx et PDF, collection d'outils pour les conversions et la sélection courantes, etc.
Commentaires (26)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Yardımı oldu, teşekkürler.
Ce commentaire a été minimisé par le modérateur sur le site
Le script VBA a parfaitement fonctionné pour changer le nom de l'auteur en nom de ma société. Merci!
Ce commentaire a été minimisé par le modérateur sur le site
Voici une macro modifiée qui vous permettra de spécifier d'abord le nom que vous souhaitez remplacer au cas où il y aurait d'autres commentaires que vous ne souhaitez pas modifier.

Sub ChangeCommentAuthor()
'Mise à jour par EntendOffice 20181112
Dim I As Long
Dim xOldName As String
Estomper xNouveauNom en tant que chaîne
Estomper xShortName en tant que chaîne
Si Selection.Comments.Count = 0 Alors
MsgBox "Aucun commentaire dans votre sélection !", vbInformation, "KuTools for Word"
Exit Sub
Si fin
xOldName = InputBox("Ancien nom d'auteur ?", "KuTools for Word")
xNewName = InputBox("Nom du nouvel auteur ?", "KuTools for Word")
xShortName = InputBox("Nouvelles initiales de l'auteur ?", "KuTools for Word")
Si xOldName = "" Ou xNewName = "" Ou xShortName = "" Alors
MsgBox "Le nom de l'auteur/les initiales ne peuvent pas être vides.", vbInformation, "Kutools for Word"
Exit Sub
Si fin
Avec sélection
Pour I = 1 To .Comments.Count
Si .Comments(I).Auteur = xAncienNom Alors
.Commentaires(I).Auteur = xNouveauNom
.Commentaires(I).Initial = xNomCourt
Si fin
Ensuite je
Terminer par
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Merci Olivier, tu es quelqu'un de bien !
Ce commentaire a été minimisé par le modérateur sur le site
И салат неплох
Ce commentaire a été minimisé par le modérateur sur le site
La même en anglais

Sub ChangeCommentAuthor()
'Mise à jour 20220603
Index dim aussi long
Dim xOldName As String
Estomper xNouveauNom en tant que chaîne
Estomper xShortName en tant que chaîne
Si Selection.Comments.Count = 0 Alors
MsgBox "Aucun commentaire dans votre sélection !", vbInformation, "KuTools for Word"
Exit Sub
Si fin
xOldName = InputBox("Ancien nom d'auteur ?", "KuTools for Word")
xNewName = InputBox("Nom du nouvel auteur ?", "KuTools for Word")
xShortName = InputBox("Nouvelles initiales de l'auteur ?", "KuTools for Word")
Si xNouveauNom = "" Ou xNomCourt = "" Alors
MsgBox "Le nom de l'auteur/les initiales ne peuvent pas être vides.", vbInformation, "Kutools for Word"
Exit Sub
Si fin
Avec sélection
Pour Index = 1 à .Comments.Count
Si (.Comments(Index).Auteur = xAncienNom) Alors
.Comments(Index).Auteur = xNouveauNom
.Comments(Index).Initial = xShortName
Si fin
Index suivant
Terminer par
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup pour cela. Fonctionne parfaitement. Un avertissement cependant; tous les commentaires seront modifiés, quels que soient les auteurs multiples. Quelque chose qui ne m'a pas dérangé.
Ce commentaire a été minimisé par le modérateur sur le site
Merci pour le tutoriel. ça m'a vraiment aidé
Ce commentaire a été minimisé par le modérateur sur le site
Cela a semblé fonctionner mais je n'ai pas pu enregistrer le fichier sans qu'il revienne à l'auteur d'origine.

Ma solution de contournement consistait à changer l'extension .docx du nom de fichier en .zip. Ensuite, j'ai ouvert le fichier zip. Naviguez jusqu'au dossier "word", puis copiez le fichier "comments.xml". Ouvrez le fichier "comments.xml" dans un éditeur de texte. Effectuez une recherche et remplacez le nom de l'auteur, puis enregistrez le fichier. Copiez et remplacez l'ancien "comments.xml" par le nouveau dans le fichier .zip. Changez maintenant l'extension de fichier en .docx et le nom de l'auteur est maintenant remplacé dans le fichier Word enregistré.
Ce commentaire a été minimisé par le modérateur sur le site
Merci! Cela a parfaitement changé les commentaires, MAIS pas la mise en forme, comme la surbrillance. Y a-t-il ce qui peut être modifié dans le VBA?VBAproblem@mt2015.com
Ce commentaire a été minimisé par le modérateur sur le site
Je suis très reconnaissant pour cette information. Les codes VBA fonctionnent parfaitement sur un document Je ne veux pas que l'auteur sache encore qui est le réviseur. Merci.
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup, le code VBN a fonctionné comme par magie !!
Ce commentaire a été minimisé par le modérateur sur le site
J'ai changé mon nom d'utilisateur comme indiqué, mais mon vrai nom apparaît toujours dans les commentaires. J'essaie de rendre mes commentaires anonymes tout en conservant les commentaires des autres critiques avec leur nom dessus.
Ce commentaire a été minimisé par le modérateur sur le site
Ce code VBA a fonctionné comme un charme - merci !
Ce commentaire a été minimisé par le modérateur sur le site
A parfaitement fonctionné, merci !
Ce commentaire a été minimisé par le modérateur sur le site
traduction en français inutilisable. Dommage !
Ce commentaire a été minimisé par le modérateur sur le site
La traduction française rend le travail impossible, en raison des différences de clavier
Ce commentaire a été minimisé par le modérateur sur le site
Ouah ! Génial ! Merci beaucoup ! 
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour
Cette macro fonctionne bien, mais pour anonymiser l'auteur des corrections dans un texte, il faudrait, en plus de l'auteur des commentaires, pouvoir changer le nom au niveau des marques de révision, et tel n'est pas le cas.
Auriez-vous une solution ?
Merci d'avance.
Ce commentaire a été minimisé par le modérateur sur le site
POUR CEUX QUI VEULENT CHANGER LES AUTEURS UNIQUEMENT DE CERTAINS COMMENTAIRESOuvrez votre document avec un archiveur (par exemple ZIP), accédez au dossier Word, trouvez le fichier comments.xml, extrayez, ouvrez avec le bloc-notes, modifiez en conséquence (ctrl + H pour rechercher et modifier l'auteur actuel et initiales à celles que vous désirez), enregistrez, récupérez le fichier dans le dossier word du zip, et le tour est joué
Ce commentaire a été minimisé par le modérateur sur le site
Cette astuce ne fonctionne pas avec toutes les versions d'office
Ce commentaire a été minimisé par le modérateur sur le site
Super, a très bien fonctionné ... merci
Ce commentaire a été minimisé par le modérateur sur le site
Excellentes informations dans ce post et aussi dans les commentaires. Merci tout le monde.
Ce commentaire a été minimisé par le modérateur sur le site
Microsoft est schon ein Schrott. Je neuer die Versionen sind, umso weniger findet man die Lösung. Wo ändere ich schlichtweg den Autor grundsätzlich. Bei mir wird nichts geändert und ich suche seit über 2 Stunden... einfach nur Schrott das UX von Microschrott
Il n'y a pas encore de commentaires postés ici
TÉLÉCHARGER PLUS
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL