Как изменить имя автора комментария в 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 Sub3. нажмите F5 ключ для запуска кода. В открытии Комментарии Имя автора диалоговом окне введите новое имя автора в текстовое поле и нажмите кнопку OK .
4. В следующем открытии Инициалы комментариев диалоговом окне введите нужные инициалы и нажмите кнопку OK .
Затем имена авторов всех комментариев в выбранном диапазоне немедленно меняются на указанные, как показано на скриншоте ниже.
Лучшие инструменты для офисной работы
Kutools for Word - Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!
🤖 Kutools AI Помощник: Преобразуйте свое письмо с помощью искусственного интеллекта. Создать контент / Переписать текст / Обобщение документов / Запросить информацию на основе документа, все в Word
📘 Владение документами: Разделить страницы / Объединить документы / Экспортировать выбранное в различные форматы (PDF/TXT/DOC/HTML...) / Пакетное преобразование в PDF / Экспортировать страницы как изображения / Печать нескольких файлов одновременно...
✏ Редактирование содержания: Пакетный поиск и замена через несколько файлов / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...
🧹 Легкая очистка: Убрать Дополнительные места / Разрывы разделов / Все заголовки / Текстовые поля / Гиперссылки / Чтобы получить дополнительные инструменты для удаления, посетите наш Удалить группу...
➕ Креативные вставки: Вставлять Разделители тысяч / Флажки / радио кнопки / QR код / Штрих-код / Таблица диагональных линий / Заголовок уравнения / Заголовок изображения / Заголовок таблицы / Несколько изображений / Узнайте больше в Вставить группу...
???? Точный выбор: Точно определить конкретные страницы / Эта таблица / формы / заголовки абзацев / Улучшите навигацию с помощью БОЛЕЕ Выберите функции...
⭐ Звездные улучшения: Быстро перемещайтесь в любое место / автоматическая вставка повторяющегося текста / плавно переключаться между окнами документов / 11 инструментов преобразования...
