¿Cómo puedo cambiar el autor de los comentarios en MS Word para Mac?

Question

¿Es posible cambiar u ocultar el nombre del autor de los comentarios de un documento? Tengo cientos de documentos donde he escrito decenas de comentarios, ahora mi jefe quiere que cambie el nombre del comentarista de mí a él. ¿Es esto posible o tengo que copiar y pegar todos los comentarios manualmente como él?

Answer 1

Para eliminar (no cambiar) el nombre de usuariosigue esta guía

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.

de lo contrario, esta pregunta tiene una respuesta que requeriría mucho trabajo manual:¿Cómo cambiar el nombre de un revisor en Word?

Answer 2

Dado que Word para Mac 2011 admite macros, debería poder automatizar esto colocando todos sus documentos en una carpeta y ejecutando el código siguiente.

Cambie vDirectory a la ruta de la carpeta que contiene los documentos a modificar. La variable sAuthorName debe contener el nombre de reemplazo. La función requeridaObtener archivos en Mac con o sin subcarpetasse puede encontrar en líneaaquí.

Descargo de responsabilidad: esta macro no ha sido probada en una 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

En Windows 11/Microsoft Office 2021:

1. abrir el documento
2. Vaya a Archivo > Opciones > Centro de confianza > Configuración del Centro de confianza > Opciones de privacidad. Desmarque "Eliminar información personal de las propiedades del archivo al guardar" y luego haga clic en "Aceptar".
3. Abra el Editor de Visual Basic (Alt+F11) y haga doble clic en "Este documento", en el panel Proyecto, a la izquierda.
4. Pegue el siguiente código en el editor de scripts:

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. Ejecute el script (F5).
6. Confirme que los nombres de los autores de los comentarios se hayan actualizado y luego guarde el archivo.