Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

Cómo cambiar el nombre del autor para comentar en Word

En este artículo se habla de cambiar el nombre de autor predeterminado para comentarios o cambiar el nombre de autor existente en un documento por uno nuevo. Por favor, pruebe los dos métodos siguientes.

Cambiar el nombre del autor de los comentarios para uso futuro

Cambiar el nombre de autor del comentario existente de un documento


Cambiar el nombre del autor de los comentarios para uso futuro

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

1. En un documento de Word abierto, haga clic en Envíe el > Opciones. En la Opciones de Word ventana, asegúrese de que está localizando en el Información General pestaña, cambia el nombre en la nombre de usuario cuadro como se muestra a continuación captura de pantalla y, finalmente, haga clic en el OK botón.

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


Cambiar el nombre de autor del comentario existente de un documento

Si ha recibido un documento con muchos comentarios y desea cambiar el nombre 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 todo el documento; cambiará los nombres de los autores presionando Ctrl + A teclas, pulse la 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 debajo del código VBA en la ventana del Módulo.

Código VBA: cambiar el nombre de 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 OK botón.

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

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



Herramientas recomendadas de productividad de palabras

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

  • Las operaciones complicadas y repetidas se pueden realizar una sola vez en segundos.
  • Inserte varias imágenes a través de carpetas en el documento de Word a la vez.
  • Combine y combine varios archivos de Word en carpetas en uno con su orden deseado.
  • 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, una colección de herramientas para conversiones y selección comunes, y así sucesivamente ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Olivier · 2 months ago
    Here is a modified Macro that will allow you to first specify the Name your want to replace in case there are other comments that you don't want to modify.

    Sub ChangeCommentAuthor()
    'Updated by EntendOffice 20181112
    Dim I As Long
    Dim xOldName As String
    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
    xOldName = InputBox("Old author name?", "KuTools for Word")
    xNewName = InputBox("New author name?", "KuTools for Word")
    xShortName = InputBox("New author initials?", "KuTools for Word")
    If xOldName = "" Or 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
    If .Comments(I).Author = xOldName Then
    .Comments(I).Author = xNewName
    .Comments(I).Initial = xShortName
    End If
    Next I
    End With
    End Sub
  • To post as a guest, your comment is unpublished.
    JaCo · 5 months ago
    The VBA script worked perfectly to change the name of the author to my company name. Thank you!
  • To post as a guest, your comment is unpublished.
    vahit · 6 months ago
    Yardımı oldu, teşekkürler.