Как я могу сменить автора комментариев в MS Word для Mac?

Question

Можно ли изменить или скрыть имя автора комментариев к документу? У меня есть сотни документов, в которых я написал десятки комментариев, теперь мой начальник хочет, чтобы я сменил имя комментатора с меня на него. Это возможно, или я должен скопировать вставить все комментарии вручную, как он?

Answer 1

Чтобы удалить (не изменить) имя пользователя, следуйте этому руководству

On the Word menu, click Preferences.

Under Personal Settings, click Security.
Under Privacy options, select the Remove personal information from this file on save check box.
Save the document.

в противном случае на этот вопрос есть ответ, который потребует много ручной работы: как изменить имя рецензента в Word?

Answer 2

Поскольку Word для Mac 2011 поддерживает макросы, вы сможете автоматизировать это, поместив все свои документы в одну папку и выполнив приведенный ниже код.

Измените vDirectory на путь к папке, содержащей документы для изменения. Переменная sAuthorName должна содержать имя замены. Необходимую функцию GetFilesOnMacWithOrWithoutSubfolders можно найти онлайн здесь.

Отказ от ответственности: этот макрос не был протестирован на MAC

Sub ChangeAuthorInDocumentComments ()
Dim vDirectory As String
Dim sAuthorName As String
Dim oDoc As Document

vDirectory = "C:\Docs\"
sAuthorName = "Adam"
MyFiles = ""

Call GetFilesOnMacWithOrWithoutSubfolders(Level:=1, ExtChoice:=7, FileFilterOption:=3, FileNameFilterStr:=".doc")

Application.ScreenUpdating = False

If MyFiles <> "" Then

    MySplit = Split(MyFiles, Chr(10))
    For FileInMyFiles = LBound(MySplit) To UBound(MySplit) - 1

        Set oDoc = Documents.Open(MySplit(FileInMyFiles))

        For Each Ocom In ActiveDocument.Comments
             With Ocom
                 Ocom.Author = sAuthorName
             End With
        Next

    oDoc.Close SaveChanges:=True
    Next FileInMyFiles
 End If

 Application.ScreenUpdating = True
End Sub