Como posso alterar o autor de comentários no MS Word para Mac?

Question

É possível alterar ou ocultar o nome do autor dos comentários em um documento? Eu tenho centenas de documentos onde eu escrevi dezenas de comentários, agora meu chefe quer que eu mude o nome do comentarista de mim para ele. Isso é possível ou eu tenho que copiar e colar todos os comentários manualmente como ele?

    

Answer 1

Para remover (não alterar) o nome de usuário siga este guia

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.

caso contrário, esta pergunta tem uma resposta que exigiria muito trabalho manual: Como alterar o nome de um revisor no Word?

    

Answer 2

Como o Word para Mac 2011 suporta macros, você deve conseguir automatizar isso colocando todos os seus documentos em uma pasta e executando o código abaixo.

Altere vDirectory para o caminho da pasta que contém os documentos a serem modificados. A variável sAuthorName deve conter o nome da substituição. A função necessária GetFilesOnMacWithOrWithoutSubfolders pode ser encontrada on-line aqui .

Disclamer: esta macro não foi testada em um 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