Cómo aceptar o rechazar por lotes todos los cambios en varios documentos de Word

En esta publicación, nos centraremos en mostrarle cómo aceptar o rechazar en lote todos los cambios en varios documentos de Word al mismo tiempo.

Es fácil aceptar o rechazar todos los cambios en un documento de Word. Solo necesita hacer clic en la pestaña "Revisar", luego haga clic en el botón desplegable en el comando "Aceptar" o "Rechazar". A continuación, elija "Aceptar todos los cambios en el documento" o "Rechazar todos los cambios en el documento".

Entonces, ¿qué sucede si hay varios documentos con cambios que desea aceptar o rechazar por lotes? Para lograr tal tarea, necesitaremos la siguiente macro.

Insertar un formulario de usuario

1. En primer lugar, presione "Alt + F11" para abrir el editor VBA en Word.
2. En segundo lugar, haga clic en "Normal".
3. Luego haga clic en "Insertar" en la barra de menú.
4. Elija "UserForm" en ese menú.
5. Haga clic en los controladores alrededor del formulario para cambiar su tamaño correctamente.
6. Presione "F4" para que aparezca la "Ventana de propiedades" en la esquina inferior izquierda.
7. Luego, nombre el formulario como "frmAcceptOrRejectChanges" y establezca su título como "Aceptar / Rechazar cambios". Además, establezca "ShowModal" como "Falso".
8. A continuación, haga clic en "Caja de herramientas" en la barra de menú.
9. Use los controles en la caja de herramientas para crear 3 botones de comando y una etiqueta y colóquelos en ese orden:
10. Ahora haga clic en la etiqueta para activar su ventana de propiedades. Establezca su título como "¿Quieres:". Se recomienda establecer el fondo de la etiqueta como transparente. Además, puede configurar el color y el tamaño de la fuente como desee.
11. A continuación, haga clic en el botón de comando 1. Nómbrelo como "btnAccept". Establezca el título como "Aceptar todos los cambios en varios documentos".
12. Luego haga doble clic en el botón de comando 1 e ingrese los siguientes códigos:

Private Sub btnAccept_Click()
  Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)

  With dlgFile
    dlgFile.AllowMultiSelect = True
    If .Show = -1 Then
      For nDocx = 1 To dlgFile.SelectedItems.Count
        Documents.Open dlgFile.SelectedItems(nDocx)
        Set objDocx = ActiveDocument

        objDocx.AcceptAllRevisions
        objDocx.Save
        objDocx.Close
      Next nDocx
    Else
      MsgBox ("You need to select documents first!")
      Exit Sub
    End If
  End With
  MsgBox ("You have accepted all revisions in selected documents.")
  Set objDocx = Nothing

End Sub

13. Ahora regrese al formulario y haga clic en el botón de comando 2. Nómbrelo como “btnReject”. Y establezca el texto de la leyenda como "Rechazar todos los cambios en varios documentos".
14. Del mismo modo, haga doble clic en el botón de comando 2 e ingrese estos códigos:

Private Sub btnReject_Click()
  Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)  
    
  With dlgFile
    dlgFile.AllowMultiSelect = True
    If .Show = -1 Then
      For nDocx = 1 To dlgFile.SelectedItems.Count
        Documents.Open dlgFile.SelectedItems(nDocx)
        Set objDocx = ActiveDocument
              
        objDocx.RejectAllRevisions
        objDocx.Save
        objDocx.Close
      Next nDocx
    Else
      MsgBox ("You need to select documents first!")
      Exit Sub
    End If
  End With
  MsgBox ("You have rejected all revisions in selected documents.")
  Set objDocx = Nothing
End Sub

15. Y luego haga clic en el botón de comando 3. Nómbrelo como "btnClose" y establezca el título como "Cerrar".
16. Asimismo, haga doble clic en el botón de comando 3 y escriba los códigos:

Private Sub btnClose_Click()
  Unload Me
End Sub

17. Guarde todos los códigos.

Insertar un módulo

1. Para empezar, repita los pasos 2 y 3 anteriores.
2. Y esta vez elige "Módulo".
3. Haga doble clic para ingresar al nuevo módulo e ingresar esta macro:

Sub ShowAcceptOrRejectForm()
  frmAcceptOrRejectRevisions.Show
End Sub

4. Guarde la macro. Puede elegir asignar un botón para esta macro. Para conocer los pasos detallados, puede seguir este enlace como referencia: Cómo eliminar el formato de los textos pegados con macro y VBA en su Word
5. Ejecute la macro para manipular el formulario de usuario. Haga clic en "Aceptar todos los cambios en varios documentos" o "Rechazar todos los cambios en varios documentos", y activará la ventana "Examinar". Seleccione los documentos y haga clic en "Aceptar".

Aquí está el resultado:

Manejar la corrupción de documentos

La pérdida y fuga de datos ocurre todo el tiempo. Algunos de ellos se pueden prevenir, mientras que otros simplemente ocurren. Por tanto, es necesario disponer de una herramienta para arreglar docx en tiempos de emergencia. Con una herramienta de este tipo, no tendrá que preocuparse por la pérdida de datos.

Introducción del autor:

Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo Corrección de Excel y pdf reparar productos de software. Para más información visite www.datanumen.com