Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment changer le nom de l'auteur pour le 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 d'auteur existant dans un document. S'il vous plaît essayez les deux méthodes ci-dessous.

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

Modifier le nom d'auteur du commentaire existant d'un document


Changer 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 ultérieure, veuillez modifier le nom d'utilisateur dans la fenêtre Options Word.

1. Dans un document Word ouvert, cliquez sur Fichier > Options. Dans le Options de Word fenêtre, assurez-vous que vous localisez dans le Général onglet, changez le nom dans le nom d'utilisateur comme illustré ci-dessous, puis cliquez sur le bouton OK .

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


Modifier le nom d'auteur du commentaire existant d'un document

Si vous avez reçu un document contenant de nombreux commentaires et que vous souhaitez modifier le nom de l'auteur de tous les commentaires en un nom spécifique, le code VBA suivant vous rendra service.

1. Sélectionnez la plage contenant des commentaires ou sélectionnez tout le document pour modifier les noms d’auteurs en appuyant sur la touche Ctrl + A touches, appuyez sur la 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 dans la fenêtre Module.

Code VBA: Modifier le nom d'auteur du document dans les commentaires existants

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 Dans la boîte de dialogue, entrez les initiales nécessaires et cliquez sur le bouton OK .

Ensuite, tous les noms d’auteurs de commentaires dans la plage sélectionnée sont remplacés par le nom spécifié immédiatement, comme illustré ci-dessous.



Kutools for Word

Plus que des fonctions avancées 100 pour Word 2003, 2007, 2010, 2013, 2016 et 2019

coup-kutools-700-225-kte

Plus de fonctionnalités | Essai Gratuit | Seulement $ 39.00 pour des centaines de fonctions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    JaCo · 1 months ago
    The VBA script worked perfectly to change the name of the author to my company name. Thank you!
  • To post as a guest, your comment is unpublished.
    vahit · 2 months ago
    Yardımı oldu, teşekkürler.