Изменение имени пользователя после добавления комментариев в Word 2016 Mac

Question

Я сделал несколько комментариев в файле слов, над которым я работаю. Однако я понял, что мое имя пользователя было указано как "Пользователь Microsoft Office". Я изменил это на свое собственное имя, но комментарии все еще перечислены как "Пользователь Microsoft Office". Есть ли способ, чтобы мое имя появилось на старых комментариях?

Версия Word 15.16, на El Capitan.

Answer 1

Есть ли способ, чтобы мое имя появилось на старых комментариях?

Когда комментарий создается, он добавляется в коллекцию комментариев, доступ к которой можно получить через VBA. Каждый комментарий имеет свойства Author и Initial, которые, соответственно, представляют имя автора и инициалы комментария. Следующий макрос является примером того, как их можно изменить:

Sub ChangeCommentAuthor()
    Dim J As Integer
    Dim sAuthorname As String
    Dim sInitial As String

    If Selection.Comments.Count = 0 Then
        MsgBox "No comments in your selection!", _
          vbCritical + vbOKOnly, "Cannot perform action"
        Exit Sub
    End If

    sAuthorname = InputBox("New author name?", _
      "Comments Author Name")
    If sAuthorname = "" Then End

    sInitial = InputBox("New author initials?", _
      "Comments Initials")
    If sInitial = "" Then End

    With Selection
        For J = 1 To .Comments.Count
            .Comments(J).Author = sAuthorname
            .Comments(J).Initial = sInitial
        Next J
    End With
End Sub

1. Сделайте выбор, который содержит комментарий, который вы хотите изменить (выделите текст в основном документе, который включает индикатор комментария)

2. Запустите макрос.

3. Введите новое имя и инициалы при появлении запроса.

4. Когда макрос завершен, он может не появиться, как будто что-то изменилось.

5. Если вы сохраните документ и перезагрузите его, вы заметите, что имена авторов комментариев были изменены, как вы указали.

Источник Изменение имени пользователя в существующих комментариях