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.

Leer más Descargar Ahora Comprar