Как изменить имя автора комментария в 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 for Word - Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!

🤖 Kutools AI Особенности: Создать контент / Переписать текст / Документ: вопросы и ответы / Получите быстрые ответы / Перевести документы / Польский документ (сохранить формат)...

📘 Владение документами: Разделить страницы / Объединить документы / Экспортировать выбранное в различные форматы (PDF/TXT/DOC/HTML...) / Пакетное преобразование в PDF...

✏ Редактирование содержания: Пакетный поиск и замена в нескольких файлах / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...

🧹 Легкая очистка: Убрать Дополнительные места / Разрывы разделов / Текстовые поля / Гиперссылки / Дополнительные инструменты для снятия см. Удалить группа...

➕ Креативные вставки: Вставлять Разделители тысяч / Флажки / радио кнопки / QR код / Штрих-код / Несколько изображений / Узнайте больше в Вставить группа...

???? Точный выбор: Точно определить Конкретные страницы / таблицы / Формы / Заголовок абзацев / Улучшите навигацию с помощью больше Выберите функции...

⭐ Звездные улучшения: Перейдите в любое место / Автоматическая вставка повторяющегося текста / Переключение между окнами документов / 11 Конверсия Инструменты...

👉 Хотите попробовать эти функции? Загрузите Kutools for Word прямо сейчас! 🚀

Бесплатная загрузка     Купить     Узнайте больше о Kutools для Word

 

Лучшие инструменты для офисной работы

Kutools for Word - 100+ инструментов для Word

• 🤖 Kutools AI Особенности: Создайте , Перезапись, Суммировать, Переведите Документы / Получите быстрые ответы / Польский документ (сохранить формат)
• 📘 Владение документами: Разделить страницы / Объединить документы / Пакетное преобразование в PDF
• ✏ Редактирование содержания: Пакетный поиск и замена / Изменить размер всех изображений
• 🧹 Легкая очистка: Удалить лишние пробелы / Удалить разрывы разделов
• ➕ Креативные вставки: Вставить разделители тысяч / Вставьте флажки / Создание QR-кодов

Бесплатная загрузка Купить Узнайте больше о Kutools