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.



Outils de productivité Word recommandés

Kutools For Word - Plus de fonctionnalités avancées 100 pour Word, économisez votre% de temps 50

  • Des opérations compliquées et répétées peuvent être effectuées en une seconde.
  • Insérez plusieurs images sur des dossiers dans un document Word à la fois.
  • Fusionner et combiner plusieurs fichiers Word sur plusieurs dossiers en un seul avec votre ordre souhaité.
  • Divisez le document actuel en documents distincts en fonction de l'en-tête, du saut de section ou d'un autre critère.
  • Convertir des fichiers entre Doc et Docx, Docx et PDF, une collection d'outils pour les conversions et la sélection courantes, etc.
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.
    Olivier · 4 months ago
    Here is a modified Macro that will allow you to first specify the Name your want to replace in case there are other comments that you don't want to modify.

    Sub ChangeCommentAuthor()
    'Updated by EntendOffice 20181112
    Dim I As Long
    Dim xOldName As String
    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
    xOldName = InputBox("Old author name?", "KuTools for Word")
    xNewName = InputBox("New author name?", "KuTools for Word")
    xShortName = InputBox("New author initials?", "KuTools for Word")
    If xOldName = "" Or 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
    If .Comments(I).Author = xOldName Then
    .Comments(I).Author = xNewName
    .Comments(I).Initial = xShortName
    End If
    Next I
    End With
    End Sub
  • To post as a guest, your comment is unpublished.
    JaCo · 8 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 · 9 months ago
    Yardımı oldu, teşekkürler.