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

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

Комментарии (29)