¿Cómo aceptar únicamente los cambios realizados por un usuario específico en un documento de Word?

Supongamos que tiene un documento de Word revisado por varias personas, como se muestra en la siguiente captura de pantalla. ¿Cómo puede aceptar únicamente los cambios realizados por una persona específica en Word?

Aceptar los cambios controlados de un usuario específico en Word

Aceptar los cambios controlados de un usuario específico con código VBA

---

Aceptar los cambios controlados de un usuario específico en Word

Para aceptar los cambios controlados de un único usuario, la función Mostrar marcas de Word puede ayudarle. Siga estos pasos:

1. Abra el archivo de Word que contiene los cambios controlados y, a continuación, haga clic en Revisar > Mostrar marcas > Personas específicas, y luego desactive la casilla de Todos los revisores para ocultar todas las revisiones. Vea la captura de pantalla:

2. A continuación, haga clic en Mostrar marcas > Personas específicas y seleccione al revisor cuyos cambios controlados desea aceptar. Vea la captura de pantalla:

3. Después, haga clic en Aceptar > Aceptar todos los cambios mostrados. Vea la captura de pantalla:

4. Ahora solo se han aceptado los cambios controlados de esa persona específica. Consulte la captura de pantalla:

5. Por último, debe volver a mostrar los cambios realizados por los demás revisores. Para ello, haga clic en Mostrar marcas > Personas específicas y active la casilla de Todos los revisores, tal como se muestra en la siguiente captura de pantalla:

---

Aceptar los cambios controlados de un usuario específico con código VBA

Si el método anterior le parece un poco complicado, aquí tiene un sencillo código VBA que también puede ayudarle. Siga los pasos siguientes:

1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo y pegue la siguiente macro en la ventana del módulo.

Código VBA: aceptar los cambios controlados de un usuario:

Sub Acceptoneuser()
    For Each xChange In ActiveDocument.Revisions
        If xChange.Author = "RubyMie" Then
            xChange.Accept
        End If
    Next
End Sub

Nota: en el código anterior, debe reemplazar el nombre de usuario «RubyMie» por el suyo propio según sus necesidades.

3. A continuación, pulse la tecla F5 para ejecutar este código y se aceptarán únicamente los cambios controlados del revisor que haya especificado en el código. Vea la captura de pantalla: