Ya que Word para Mac 2011 admite macros, debería poder automatizar esto colocando todos sus documentos en una carpeta y ejecutando el siguiente código.
Cambie vDirectory a la ruta de la carpeta que contiene los documentos para modificar. La variable sAuthorName debe contener el nombre de reemplazo. La funcion requerida GetFilesOnMacWithOrWithoutSubfolders se puede encontrar en línea aquí .
Descargo de responsabilidad: esta macro no se ha probado en un 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