Comment accepter ou rejeter par lots toutes les modifications dans plusieurs documents Word

Dans cet article, nous allons vous montrer comment accepter ou refuser par lots toutes les modifications apportées à plusieurs documents Word simultanément.

Il est facile d'accepter ou de rejeter toutes les modifications dans un seul document Word. Il vous suffit de cliquer sur l'onglet "Examiner", puis de cliquer sur le bouton déroulant de la commande "Accepter" ou "Rejeter". Choisissez ensuite "Accepter toutes les modifications dans le document" ou "Rejeter toutes les modifications dans le document".

Que se passe-t-il ensuite s'il existe plusieurs documents avec des modifications que vous souhaitez accepter ou rejeter par lot ? Pour accomplir une telle tâche, nous allons avoir besoin de la macro suivante.

Insérer un formulaire utilisateur

1. Tout d'abord, appuyez sur "Alt + F11" pour ouvrir l'éditeur VBA dans Word.
2. Ensuite, cliquez sur "Normal".
3. Cliquez ensuite sur "Insérer" dans la barre de menu.
4. Choisissez "UserForm" dans ce menu.
5. Cliquez sur les poignées autour du formulaire pour le redimensionner correctement.
6. Appuyez sur "F4" pour faire apparaître la "Fenêtre des propriétés" dans le coin inférieur gauche.
7. Nommez ensuite le formulaire « frmAcceptOrRejectChanges » et définissez sa légende sur « Accept/Reject Changes ». En outre, définissez "ShowModal" sur "False".
8. Cliquez ensuite sur "Boîte à outils" dans la barre de menu.
9. Utilisez les contrôles de la boîte à outils pour créer 3 boutons de commande et une étiquette et mettez-les dans cet ordre :
10. Cliquez maintenant sur l'étiquette pour activer sa fenêtre de propriétés. Définissez sa légende sur "Voulez-vous :". Il est recommandé de définir l'arrière-plan de l'étiquette sur transparent. En outre, vous pouvez définir la couleur et la taille de la police à votre guise.
11. Cliquez ensuite sur le bouton de commande 1. Nommez-le « btnAccept ». Définissez la légende sur "Accepter toutes les modifications dans plusieurs documents".
12. Double-cliquez ensuite sur le bouton de commande 1 et saisissez les codes suivants :

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. Maintenant, revenez au formulaire et cliquez sur le bouton de commande 2. Nommez-le "btnReject". Et définissez le texte de la légende sur "Rejeter toutes les modifications dans plusieurs documents".
14. De même, double-cliquez sur le bouton de commande 2 et saisissez ces codes :

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. Et ensuite, cliquez sur le bouton de commande 3. Nommez-le "btnClose" et définissez la légende sur "Fermer".
16. De même, double-cliquez sur le bouton de commande 3 et tapez les codes :

Private Sub btnClose_Click()
  Unload Me
End Sub

17. Enregistrez tous les codes.

Insérer un module

1. Pour commencer, répétez les étapes 2 et 3 ci-dessus.
2. Et cette fois, choisissez "Module".
3. Double-cliquez pour entrer dans le nouveau module et entrez cette macro :

Sub ShowAcceptOrRejectForm()
  frmAcceptOrRejectRevisions.Show
End Sub

4. Enregistrez la macro. Vous pouvez choisir d'affecter un bouton à cette macro. Pour des étapes détaillées, vous pouvez suivre ce lien pour référence : Comment supprimer le formatage des textes collés avec macro et VBA dans votre mot
5. Exécutez la macro pour rigger le formulaire utilisateur. Cliquez sur "Accepter toutes les modifications dans plusieurs documents" ou sur "Rejeter toutes les modifications dans plusieurs documents", et vous déclencherez la fenêtre "Parcourir". Sélectionnez les documents et cliquez sur "OK".

Voici le résultat:

Gérer la corruption de documents

La perte et la fuite de données se produisent tout le temps. Certains d'entre eux peuvent être évités, tandis que d'autres se produisent tout simplement. Il faut donc se procurer un outil pour réparer docx en cas d'urgence. Avec un tel outil, vous n'aurez pas à vous soucier de la perte de données.

Introduction de l'auteur:

Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris Correctif Excel et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com