Note: The other languages of the website are Google-translated. Back to English

Cómo cambiar el nombre del autor para un comentario en Word

Este artículo habla de cambiar el nombre del autor predeterminado para los comentarios o cambiar el nombre del autor existente en un documento por uno nuevo. Pruebe los dos métodos siguientes.

Cambiar el nombre del autor de los comentarios para uso futuro

Cambiar el nombre de autor de los comentarios existentes de un documento


Cambiar el nombre del autor de los comentarios para uso futuro

Si desea cambiar el nombre del autor del comentario para uso futuro, cambie el nombre de usuario en la ventana Opciones de Word.

1. En un documento de Word abierto, haga clic en Declarar impuestos > Opciones. En la Opciones de Word ventana, asegúrese de ubicar en la General pestaña, cambie el nombre en la nombre de usuario cuadro como se muestra a continuación en la captura de pantalla, y finalmente haga clic en el OK

Ahora ha cambiado el nombre de usuario predeterminado para los comentarios en el documento de Word.


Cambiar el nombre de autor de los comentarios existentes de un documento

Si ha recibido un documento con muchos comentarios y desea cambiar los nombres de autor de todos los comentarios a uno determinado, el siguiente código de VBA le hará un favor.

1. Seleccione el rango que contiene comentarios o seleccione el documento completo; cambiará los nombres de los autores presionando la tecla Ctrl + A teclas, presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En la apertura Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie el código de VBA a continuación en la ventana del Módulo.

Código de VBA: cambie el nombre del autor de los comentarios existentes del documento

Sub ChangeCommentAuthor()
'Updated by EntendOffice 20181112
    Dim I As Long
    Dim xNewName As String
    Dim xShortName As String
    If Selection.Comments.Count = 0 Then
        MsgBox "No comments in your selection!", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    xNewName = InputBox("New author name?", "KuTools for Word")
    xShortName = InputBox("New author initials?", "KuTools for Word")
    If xNewName = "" Or xShortName = "" Then
        MsgBox "The author name/initials can’t be empty.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    With Selection
        For I = 1 To .Comments.Count
            .Comments(I).Author = xNewName
            .Comments(I).Initial = xShortName
        Next I
    End With
End Sub

3. presione el F5 clave para ejecutar el código. En la apertura Comentarios Nombre del autor cuadro de diálogo, ingrese el nuevo nombre del autor en el cuadro de texto y haga clic en el OK

4. En la próxima apertura Comentarios iniciales cuadro de diálogo, ingrese las iniciales que necesite y haga clic en el OK

Luego, los nombres de autor de todos los comentarios en el rango seleccionado se cambian al especificado inmediatamente como se muestra a continuación.


Herramientas de productividad de palabras recomendadas

 

Kutools para Word: más de 100 funciones avanzadas para Word, ahorre su 50% de tiempo

  • Las operaciones complicadas y repetidas se pueden realizar un solo procesamiento en segundos.
  • Inserte varias imágenes en carpetas en un documento de Word a la vez.
  • Fusiona y combina varios archivos de Word en carpetas en uno con el orden que desees.
  • Divida el documento actual en documentos separados según el encabezado, el salto de sección u otros criterios.
  • Convierta archivos entre Doc y Docx, Docx y PDF, colección de herramientas para conversiones y selección comunes, etc.
Comentarios (29)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Yardımı oldu, teşekkürler.
Este comentario fue minimizado por el moderador en el sitio
El script de VBA funcionó perfectamente para cambiar el nombre del autor por el nombre de mi empresa. ¡Gracias!
Este comentario fue minimizado por el moderador en el sitio
Aquí hay una macro modificada que le permitirá especificar primero el nombre que desea reemplazar en caso de que haya otros comentarios que no desee modificar.

Sub CambioComentarioAutor()
'Actualizado por EntendOffice 20181112
Dim I tan largo
Dim xOldName como cadena
Dim xNewName como cadena
Dim xShortName como cadena
Si Selection.Comments.Count = 0 Entonces
MsgBox "¡No hay comentarios en su selección!", vbInformation, "KuTools for Word"
Exit Sub
Si terminar
xOldName = InputBox("¿Antiguo nombre del autor?", "KuTools para Word")
xNewName = InputBox("¿Nuevo nombre de autor?", "KuTools para Word")
xShortName = InputBox("¿Iniciales del nuevo autor?", "KuTools para Word")
Si xOldName = "" O xNewName = "" O xShortName = "" Entonces
MsgBox "El nombre/las iniciales del autor no pueden estar vacíos", vbInformation, "Kutools for Word"
Exit Sub
Si terminar
Con selección
Para I = 1 Para .Comments.Count
Si .Comentarios(I).Autor = xNombreAntiguo Entonces
.Comentarios(I).Autor = xNuevoNombre
.Comentarios(I).Inicial = xNombreCorto
Si terminar
Siguiente yo
End With
End Sub
Este comentario fue minimizado por el moderador en el sitio
¡Gracias, Olivier, eres una buena persona!
Este comentario fue minimizado por el moderador en el sitio
И салат неплох
Este comentario fue minimizado por el moderador en el sitio
La même en inglés

Sub CambioComentarioAutor()
'Actualizado 20220603
Índice de atenuación siempre
Dim xOldName como cadena
Dim xNewName como cadena
Dim xShortName como cadena
Si Selection.Comments.Count = 0 Entonces
MsgBox "¡No hay comentarios en su selección!", vbInformation, "KuTools for Word"
Exit Sub
Si terminar
xOldName = InputBox("¿Antiguo nombre del autor?", "KuTools para Word")
xNewName = InputBox("¿Nuevo nombre de autor?", "KuTools para Word")
xShortName = InputBox("¿Iniciales del nuevo autor?", "KuTools para Word")
Si xNewName = "" O xShortName = "" Entonces
MsgBox "El nombre/las iniciales del autor no pueden estar vacíos", vbInformation, "Kutools for Word"
Exit Sub
Si terminar
Con selección
Para índice = 1 a .Comments.Count
Si (.Comentarios(Índice).Autor = xNombreAntiguo) Entonces
.Comentarios(Índice).Autor = xNuevoNombre
.Comentarios(Índice).Inicial = xNombreCorto
Si terminar
Índice siguiente
End With
End Sub
Este comentario fue minimizado por el moderador en el sitio
Muchas gracias por esto. Funciona perfecto. Sin embargo, una advertencia; todos los comentarios se cambiarán, independientemente de los múltiples autores. Algo que no me molestó.
Este comentario fue minimizado por el moderador en el sitio
Gracias por el tutorial. Realmente me ayudó
Este comentario fue minimizado por el moderador en el sitio
Esto pareció funcionar, pero no pude guardar el archivo sin que volviera al autor original.

Mi solución fue cambiar la extensión .docx en el nombre del archivo a .zip. Luego abrí el archivo zip. Navegó a la carpeta "palabra" y luego copió el archivo "comentarios.xml". Abra el archivo "comentarios.xml" en un editor de texto. Realice una búsqueda y reemplace el nombre del autor y luego guarde el archivo. Copie y reemplace el antiguo "comentarios.xml" con el nuevo en el archivo .zip. Ahora cambie la extensión del archivo a .docx y el nombre del autor ahora se reemplaza en el archivo de Word guardado.
Este comentario fue minimizado por el moderador en el sitio
Probablemente tenía un script habilitado que revirtió el autor de los comentarios al guardar.
Este comentario fue minimizado por el moderador en el sitio
¡Gracias! Cambió perfectamente los comentarios, PERO no el formato, como el resaltado. ¿Hay algo que se pueda modificar en el VBA?VBAproblem@mt2015.com
Este comentario fue minimizado por el moderador en el sitio
Estoy muy agradecido por esta información. Los códigos de VBA funcionan perfectamente en un documento. No quiero que el escritor sepa quién es el revisor todavía. Gracias.
Este comentario fue minimizado por el moderador en el sitio
¡Muchas gracias, el código VBN funcionó como magia!
Este comentario fue minimizado por el moderador en el sitio
Cambié mi nombre de usuario según las instrucciones, pero mi nombre real sigue apareciendo en los comentarios. Estoy tratando de hacer que mis comentarios sean anónimos mientras conservo los comentarios de los otros revisores con su nombre en ellos.
Este comentario fue minimizado por el moderador en el sitio
Ese código VBA funcionó a las mil maravillas, ¡gracias!
Este comentario fue minimizado por el moderador en el sitio
Funcionó perfectamente, gracias!
Este comentario fue minimizado por el moderador en el sitio
traduction en français inutilizable. Dominación!
Este comentario fue minimizado por el moderador en el sitio
La traducción al francés imposibilita el trabajo, debido a las diferencias de teclado
Este comentario fue minimizado por el moderador en el sitio
Guau ! Impresionante ! muchas gracias ! 
Este comentario fue minimizado por el moderador en el sitio
¡Hola
Cette macro fonctionne bien, mais pour anonymiser l'auteur des corrects dans un texte, il faudrait, en plus de l'auteur des commentaires, pouvoir changer le nom au niveau de marques de révision, et tel n'est pas le cas.
Auriez-vous una solución?
Merci d'avance.
Este comentario fue minimizado por el moderador en el sitio
PARA AQUELLOS QUE QUIEREN CAMBIAR LOS AUTORES SOLO DE CIERTOS COMENTARIOS Abra su documento con un archivador (por ejemplo, ZIP), vaya a la carpeta de Word, busque el archivo comments.xml, extraiga, abra con el bloc de notas, edite en consecuencia (ctrl+H para buscar y cambiar el autor actual y iniciales de las que desee), guarde, devuelva el archivo a la carpeta de word en el zip, et voila
Este comentario fue minimizado por el moderador en el sitio
Cette astuce ne fonctionne pas avec toutes les versions d'office
Este comentario fue minimizado por el moderador en el sitio
Genial, funciono muy bien... gracias
Este comentario fue minimizado por el moderador en el sitio
Excelente información en este post y también en los comentarios. Gracias a todos.
Este comentario fue minimizado por el moderador en el sitio
Microsoft ist schon ein Schrott. Je neuer die Versionen sind, umso weniger findet man die Lösung. Wo ändere ich schlichtweg den Autor grundsätzlich. Bei mir wird nichts geändert und ich suche seit über 2 Stunden... einfach nur Schrott das UX von Microschrott
No hay comentarios publicados aquí todavía
Ver más
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL