Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как изменить имя автора для комментария в 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 Кнопка.

Затем все имена авторов комментариев в выбранном диапазоне сразу меняются на указанный ниже, как показано ниже.



Рекомендуемые инструменты для повышения производительности Word

Kutools For Word - больше, чем расширенные возможности 100 для Microsoft Word, сэкономьте время 50%

  • Сложные и повторяющиеся операции могут быть выполнены одноразовой обработкой за считанные секунды.
  • Вставьте несколько изображений из папок в документ Word одновременно.
  • Объединяйте и объединяйте несколько файлов Word в разных папках в нужном вам порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком 1, разрывом раздела или другими критериями.
  • Конвертировать файлы между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора, и так далее...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Olivier · 1 months ago
    Here is a modified Macro that will allow you to first specify the Name your want to replace in case there are other comments that you don't want to modify.

    Sub ChangeCommentAuthor()
    'Updated by EntendOffice 20181112
    Dim I As Long
    Dim xOldName As String
    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
    xOldName = InputBox("Old author name?", "KuTools for Word")
    xNewName = InputBox("New author name?", "KuTools for Word")
    xShortName = InputBox("New author initials?", "KuTools for Word")
    If xOldName = "" Or 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
    If .Comments(I).Author = xOldName Then
    .Comments(I).Author = xNewName
    .Comments(I).Initial = xShortName
    End If
    Next I
    End With
    End Sub
  • To post as a guest, your comment is unpublished.
    JaCo · 5 months ago
    The VBA script worked perfectly to change the name of the author to my company name. Thank you!
  • To post as a guest, your comment is unpublished.
    vahit · 6 months ago
    Yardımı oldu, teşekkürler.