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 votre dernière attestation > Options. Dans le Options de Word , assurez-vous que vous vous trouvez dans la Général 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.
Meilleurs outils de productivité bureautique
Kutools for Word - Élevez votre expérience Word avec Over 100 Caractéristiques remarquables !
🤖 Assistant IA Kutools: Transformez votre écriture avec l'IA - Générer du contenu / Réécrire le texte / Résumer des documents / Demander des informations basé sur le document, le tout dans Word
(I.e. Maîtrise des documents: Pages divisées / Fusionner des documents / Exporter la sélection dans différents formats (PDF/TXT/DOC/HTML...) / Conversion par lots en PDF / Exporter des pages sous forme d'images / Imprimer plusieurs fichiers à la fois
✏ Édition du contenu: Rechercher et remplacer par lots sur plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et les colonnes du tableau / Convertir le tableau en texte
🧹 Nettoyage sans effort : balayer Espaces supplémentaires / Sauts de section / Tous les en-têtes / Boîtes de texte / Liens hypertextes / Pour plus d'outils de suppression, rendez-vous sur notre Supprimer le groupe
➕ Insertions créatives: Insérer Mille séparateurs / Cases à cocher / Boutons radio / code QR / Code barres / Tableau des lignes diagonales / Légende de l'équation / Légende / Légende de la table / Plusieurs images / Découvrez-en davantage dans le Insérer un groupe
🔍 Sélections de précision: Localiser pages spécifiques / les tables / formes / paragraphes de titre / Améliorez la navigation avec PLUS Sélectionnez les fonctionnalités
⭐ Améliorations des étoiles: Naviguez rapidement vers n’importe quel endroit / insertion automatique de texte répétitif / basculer de manière transparente entre les fenêtres de document / 11 outils de conversion