7 votos

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

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

2 votos

Posible duplicado de esta pregunta . Buena suerte.

3voto

yogsototh Puntos 3971

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

2voto

Adam Puntos 4031

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

Cambie vDirectory por la ruta de la carpeta que contiene los documentos a modificar. La variable sAuthorName debe contener el nombre de la sustitución. La función requerida GetFilesOnMacWithOrWithoutSubfolders se puede encontrar en línea aquí .

Revelador: Esta macro no ha sido probada 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

EnMiMaquinaFunciona.com

EnMiMaquinaFunciona es una comunidad de administradores de sistemas en la que puedes resolver tus problemas y dudas.
Puedes consultar las preguntas de otros sysadmin, hacer tus propias preguntas o resolver las de los demás.

Powered by: