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

7

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

Pumpkin
fuente
2
Posible duplicado de esta pregunta . Buena suerte.
long

Respuestas:

3

Para eliminar (no cambiar) el nombre de usuario sigue 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?

Moak
fuente
2

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
Adam
fuente