Как да промените името на автора за коментар в Word
Тази статия говори за промяна на името на автора по подразбиране за коментари или за промяна на съществуващото име на автор в документ с ново. Моля, опитайте следните два метода.
Променете името на автора на коментарите за бъдеща употреба
Променете името на автора на съществуващите коментари на документ
Променете името на автора на коментарите за бъдеща употреба
Ако искате да промените името на автора на коментара за бъдеща употреба, моля, променете потребителското име в прозореца с опции на Word.
1. В отворен документ на Word щракнете досие > Настроики. В Опции на Word прозорец, уверете се, че се намирате в общ раздел, променете името в потребителско име поле, както е показано на екранната снимка по-долу, и накрая щракнете върху OK бутон.
Сега сте променили потребителското име по подразбиране за коментари в документа на Word.
Променете името на автора на съществуващите коментари на документ
Ако сте получили документ с много коментари и искате да промените имената на авторите на всички коментари на определено, следният VBA код ще ви направи услуга.
1. Изберете диапазона, който съдържа коментари, или изберете целия документ, който ще промените имената на авторите, като натиснете Ctrl + A клавиши, натиснете Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. В откриването Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули. След това копирайте по-долу 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: Преобразувайте писането си с AI - Генериране на съдържание / Пренаписване на текст / Обобщаване на документи / Запитване за информация въз основа на Документ, всичко това в Word
📘 Владеене на документи: Разделяне на страници / Обединяване на документи / Експортиране на селекция в различни формати (PDF/TXT/DOC/HTML...) / Пакетно конвертиране в PDF / Експортиране на страници като изображения / Отпечатайте няколко файла наведнъж...
✏ Редактиране на съдържанието: Пакетно намиране и замяна в множество файлове / Преоразмеряване на всички снимки / Транспониране на редовете и колоните на таблицата / Преобразуване на таблица в текст...
🧹 Почистване без усилие: Изметете Допълнителни пространства / Прекъсвания на раздели / Всички заглавки / Текстови полета / Хипервръзки / За повече инструменти за премахване се насочете към нашия Премахване на група...
➕ Творчески вложки: Вмъкване Хилядни разделители / Квадратчета / Радио бутони / QR Code / Баркод / Таблица с диагонални линии / Надпис на уравнение / Надпис на изображението / Надпис на таблица / Множество снимки / Открийте повече в Вмъкване на група...
🔍 Прецизни селекции: Точна точка конкретни страници / таблици / форми / заглавни параграфи / Подобрете навигацията с още Изберете функции...
⭐ Звездни подобрения: Навигирайте бързо до всяко място / автоматично вмъкване на повтарящ се текст / безпроблемно превключване между прозорците на документи / 11 Инструменти за конвертиране...