Перейти до основного матеріалу

Як змінити ім’я автора для коментаря в Word

У цій статті йдеться про зміну імені автора за замовчуванням для коментарів або про зміну імені автора в документі на нове. Будь ласка, спробуйте нижче два методи.

Змініть ім’я автора коментарів для подальшого використання

Змініть ім’я автора існуючих коментарів документа


Змініть ім’я автора коментарів для подальшого використання

Якщо ви хочете змінити ім’я автора коментаря для подальшого використання, будь ласка, змініть ім’я користувача у вікні Параметри Word.

1. У відкритому документі Word натисніть філе > Опції, в Параметри Word вікно, переконайтеся, що ви знаходите в Загальне на вкладці, змініть назву на ім'я користувача як показано на знімку екрана, і нарешті клацніть на OK кнопки.

Тепер ви змінили ім’я користувача за замовчуванням для коментарів у документі Word.


Змініть ім’я автора існуючих коментарів документа

Якщо ви отримали документ із великою кількістю коментарів, і ви хочете змінити імена авторів усіх коментарів на певні, наведений нижче код VBA зробить вам послугу.

1. Виберіть діапазон, що містить коментарі, або оберіть весь документ, щоб змінити імена авторів, натиснувши Ctrl + A клавіші, натисніть інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. На відкритті Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте код VBA у вікно модуля.

Код VBA: змініть ім'я автора існуючих коментарів документа

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 Натисніть кнопку F5 клавіша для запуску коду. На відкритті Коментарі Ім'я автора діалогове вікно, введіть ім'я нового автора в текстове поле та клацніть на OK кнопки.

4. У наступному відкритті Ініціали коментарів діалогове вікно, введіть ініціали, як вам потрібно, і натисніть на OK кнопки.

Потім імена авторів усіх коментарів у вибраному діапазоні негайно змінюються на вказане, як показано нижче.

Найкращі інструменти продуктивності офісу

Kutools для Word - Підніміть свій досвід Word із Over 100 Чудові особливості!

🤖 Kutools AI Assistant: змініть свій текст за допомогою ШІ - Створення вмісту  /  Переписати текст  /  Узагальнити документи  /  Звертайтеся за інформацією на основі Документа, все в Word

📘 Майстерність документів: Розділити сторінки  /  Об’єднати документи  /  Експортувати вибране в різні формати (PDF/TXT/DOC/HTML...)  /  Пакетне перетворення в PDF  /  Експортувати сторінки як зображення  /  Друк кількох файлів одночасно...

Редагування змісту: Пакетний пошук та заміна між кількома файлами  /  Змінити розмір усіх зображень  /  Транспонування рядків і стовпців таблиці  /  Перетворити таблицю в текст...

🧹 Очищення без зусиль: Змітати Зайві простори  /  Розбиття розділів  /  Усі заголовки  /  Текстові поля  /  Гіперпосилання  / Щоб отримати більше інструментів для видалення, відвідайте наш сайт Вилучити групу...

Творчі вставки: Вставити Роздільники тисяч  /  Прапорці  /  радіо кнопки  /  QR-код  /  Штрих-код  /  Таблиця діагональних ліній  /  Заголовок рівняння  /  Підпис зображення  /  Заголовок таблиці  /  Кілька зображень  / Дізнайтеся більше в Вставити групу...

???? Точність вибору: Точне визначення конкретні сторінки  /  Таблиці  /  форми  /  заголовок абзаців  / Покращте навігацію за допомогою більше Виберіть функції...

Покращення зірок: Швидка навігація до будь-якого місця  /  автоматичне вставлення повторюваного тексту  /  плавно перемикатися між вікнами документів  /  11 Інструменти перетворення...

👉 Хочете спробувати ці функції? Kutools для Word пропонує a 60-денна безкоштовна пробна версія, без обмежень! ????
 
Comments (32)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Hi, thanks for this guide. However I'm stuck at the module step. What do you mean with pressing F5 keys? Can you show me? Thank you
This comment was minimized by the moderator on the site
Hi Carla,

After adding the VBA code, stay in the Microsoft Visual Basic for Applications window and press the F5 key on your keyboard to run the code.
This comment was minimized by the moderator on the site
Fantastic - many thanks!!!
Rated 5 out of 5
This comment was minimized by the moderator on the site
Thank you, is there a solution to change the picture of the author in the comments into an anonymous one?
This comment was minimized by the moderator on the site
Hi Niccolo,
Sorry can't help you with this problem.
This comment was minimized by the moderator on the site
Cool thanks!
This comment was minimized by the moderator on the site
Boas. No meu caso funcionou muito bem com os "comentarios", mas não alterou o nome de quem fez as "alterações" ao texto. Alguém consegue efectuar a alteração do autor para todos os tipos de marcações: comentarios, alterações, formatação...
This comment was minimized by the moderator on the site
Microsoft ist 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
This comment was minimized by the moderator on the site
Excellent information in this post and also in the comments. Thank you everyone.
This comment was minimized by the moderator on the site
Great, worked very well ... thanks
This comment was minimized by the moderator on the site
FOR THOSE WHO WANNA CHANGE AUTHORS ONLY OF CERTAIN COMMENTSOpen your doc with an archiver (e.g. ZIP), go to word folder, find comments.xml file, extract, open with notepad, edit accordingly (ctrl+H to find and change current author and initials to the ones you desire), save, get the file back to word folder in the zip, et voila
This comment was minimized by the moderator on the site
Cette astuce ne fonctionne pas avec toutes les versions d'office
This comment was minimized by the moderator on the 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 de marques de révision, et tel n'est pas le cas.
Auriez-vous une solution?
Merci d'avance.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations