3 façons d'accepter des modifications suivies spécifiques uniquement dans votre document Word

Dans cet article, nous souhaitons partager avec vous 3 façons d'accepter des modifications suivies spécifiques uniquement dans votre document Word.

Normalement, dans un document avec des modifications suivies, vous pouvez les accepter toutes en même temps ou une par une. Mais parfois, vous devrez peut-être accepter uniquement des modifications spécifiques, telles que toutes les modifications de mise en forme. Pour résoudre ce problème, il faut des étapes supplémentaires.

Voici 3 approches pour accepter des modifications suivies spécifiques uniquement dans différents cas.

Méthode 1 : accepter toutes les modifications suivies d'un type spécifique

Ici, disons que nous devons accepter toutes les modifications de formatage dans le document.

1. Tout d'abord, cliquez sur l'onglet "Revoir".
2. Cliquez ensuite sur la commande "Afficher le balisage".
3. Cochez ensuite uniquement la case "Formatage" dans le menu déroulant.
4. Vous pouvez maintenant voir que seules les modifications de mise en forme sont affichées dans le document. Cliquez sur le bouton déroulant de la commande "Accepter".
5. Et sélectionnez l'option "Accepter toutes les modifications affichées".

De même, pour accepter d'autres modifications, affichez uniquement ce type de modifications dans le document et acceptez-les.

Méthode 2 : accepter uniquement les suppressions ou les insertions

Comme vous pouvez le voir sur la première capture d'écran, les insertions et les suppressions sont liées. Par conséquent, pour accepter l'un d'eux, vous avez besoin d'une macro.

1. Tout d'abord, appuyez sur "Alt + F11" pour déclencher l'éditeur VBA dans Word.
2. Cliquez ensuite sur le projet "Normal" et cliquez sur "Insérer" dans la barre de menu.
3. Et sélectionnez "Module" dans ce menu pour en insérer un nouveau.
4. Double-cliquez ensuite sur le module pour l'ouvrir et collez les codes suivants :

Sub AcceptOnlyDeletionsInDoc()
  Dim objRevision As Revision
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
 
  For Each objRevision In objDoc.Revisions
    With objRevision
      If .Type = wdRevisionDelete Then
        .Accept
      End If
    End With
  Next objRevision
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

5. Enfin, cliquez sur le bouton "Exécuter" ou appuyez simplement sur "F5" pour exécuter les codes.

Cette macro accepte toutes les suppressions dans le document. Pour accepter toutes les insertions, il vous suffit de remplacer par cette macro :

Sub AcceptOnlyInsertionsInDoc()
  Dim objRevision As Revision
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
 
  For Each objRevision In objDoc.Revisions
    With objRevision
      If .Type = wdRevisionInsert Then
        .Accept
      End If
    End With
  Next objRevision
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

Méthode 3 : accepter toutes les modifications d'une sélection

Cette méthode vous montre comment accepter rapidement toutes les modifications de différents types dans une sélection.

1. Pour commencer, sélectionnez une plage cible.
2. Cliquez ensuite sur l'onglet "Révision" dans le ruban.
3. Cliquez ensuite sur le bouton déroulant de la commande "Accepter".
4. Dans le menu déroulant, sélectionnez "Accepter le changement". Et c'est tout.

La perte de données pénètre partout

Avec la vague de numérisation, la probabilité d'obtenir document corrompu augmente. Compte tenu de la valeur de vos données, il est fortement recommandé de se procurer un outil de réparation suffisant. Ainsi, vous pouvez récupérer des documents en un minimum de temps.

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 réparer xls et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com