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

Question

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

Answer 1

Para remover (não alterar) o nome de usuáriosiga 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 oferece suporte a macros, você poderá 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áriaGetFilesOnMacWithOrWithoutSubfolderspode ser encontrado on-lineaqui.

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

Answer 3

No Windows 11/Microsoft Office 2021:

1. Abra o documento
2. Vá para Arquivo > Opções > Central de Confiabilidade > Configurações da Central de Confiabilidade > Opções de Privacidade. Desmarque a opção “Remover informações pessoais das propriedades do arquivo ao salvar” e clique em “OK”.
3. Abra o Editor do Visual Basic (Alt+F11) e clique duas vezes em “Este Documento”, no painel Projeto, à esquerda.
4. Cole o seguinte código no editor de script:

Sub ChangeAllAuthorNamesInComments()
  Dim objComment As Comment

  ' Change all author names in comments
  For Each objComment In ActiveDocument.Comments
    objComment.Author = "XYZ"
    objComment.Initial = "X"
  Next objComment
End Sub

5. Execute o script (F5).
6. Confirme se os nomes dos autores dos comentários foram atualizados e salve o arquivo.