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 Archive > 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 del botón.
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 Sub3. 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 del botón.
4. En la próxima apertura Comentarios iniciales cuadro de diálogo, ingrese las iniciales que necesite y haga clic en el OK del botón.
Luego, los nombres de autor de todos los comentarios en el rango seleccionado se cambian al especificado inmediatamente como se muestra a continuación.
Las mejores herramientas de productividad de oficina
Kutools for Word - Mejore su experiencia con Word con Over 100 ¡Características notables!
🤖 Asistente de IA de Kutools: Transforma tu escritura con IA - Generar contenido / Reescribir texto / Resumir documentos / Solicite información basado en el documento, todo dentro de Word
📘 Dominio del documento: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir por lotes a PDF / Exportar páginas como imágenes / Imprima varios archivos a la vez...
✏ Edición de contenidos: Buscar y reemplazar por lotes en varios archivos / Cambiar el tamaño de todas las imágenes / Transponer filas y columnas de tabla / Convertir tabla en texto...
🧹 Limpieza sin esfuerzo: barrer Espacios extra / Saltos de sección / Todos los encabezados / Cuadros de texto / Los hipervínculos / Para obtener más herramientas de extracción, diríjase a nuestro Quitar grupo...
➕ Inserciones creativas: Insertar Mil Separadores / Casillas de verificación / Botones de radio / Código QR / Barcode / Tabla de líneas diagonales / Título de la ecuación / Captura de imagen / Pie de tabla / Varias imágenes / Descubre más en el Insertar grupo...
🔍 Selecciones de precisión: Localizar páginas específicas / tablas / formas / párrafos de encabezado / Mejorar la navegación con más, Seleccionar características...
⭐ Mejoras de estrellas: Navegue rápidamente a cualquier ubicación / insertar automáticamente texto repetitivo / alternar sin problemas entre ventanas de documentos / 11 herramientas de conversión...
