3 Ways to Accept Specific Tracked Changes Only in Your Word Document

In this article, we want to share with you 3 ways to accept specific tracked changes only in your Word document.

Normally, in a document with tracked changes, you can accept them all at once or each one by one. But sometimes, you may need to accept only specific changes, such as all formatting changes. To address this, it requires extra steps.Accept Specific Tracked Changes Only in Your Word Document

Following are 3 approaches to accept specific tracked changes only in different cases.

Method 1: Accept All Tracked Changes of Specific Type

Here, let’s say we need to accept all formatting changes in the document.

  1. Firstly, click “Review” tab.
  2. Then click “Show Markup” command.
  3. Next check only “Formatting” box on the drop-down menu.Click "Review" ->Click "Show Markup"->Check "Formatting" Box
  4. Now you can see only formatting changes are shown in the document. Click on the drop-down button on “Accept” command.
  5. And select “Accept All Changes Shown” option.Click on the Drop-down Button on "Accept" Command->Select "Accept All Changes Shown"

Likewise, to accept other changes, just show only that type of changes in the document and accept them.

Method 2: Accept Only Deletions or Insertions

As you can see from the first screenshot, insertions and deletions are bound together. Therefore, to accept one of them, you need a macro.

  1. First of all, press “Alt+ F11” to trigger VBA editor in Word.
  2. Next click “Normal” project and click “Insert” on menu bar.
  3. And select “Module” on that menu to insert a new one.Click "Normal"->Click "Insert"->Click "Module"
  4. Then double click on module to open it and paste following codes:
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
  1. Finally, click “Run” button or just hit “F5” to execute codes.Paste Codes->Click "Run"

This macro accepts all deletions in the document. As to accept all insertions, you simply replace with this 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

Method 3: Accept All Changes in a Selection

This method shows you how to quickly accept all changes in different types in a selection.

  1. To start with, make a selection over target range.
  2. Then click “Review” tab in the Ribbon.
  3. Next click on drop-down button on “Accept” command.
  4. On the drop-down menu, select “Accept Change”. And that’s it.Select a Range->Click "Review"->Click Drop-down Button on "Accept" Command->Select "Accept Change"

Data Loss Penetrating Everywhere

Going with the tide of digitization, the probability of getting corrupt doc is increasing. Considering the value of your data, it’s highly recommended to get hold of a sufficient repairing tool. So you can recover documents with the least time.

Author Introduction:

Vera Chen is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including fix xls and pdf repair software products. For more information visit www.datanumen.com

Leave a Reply

Your email address will not be published.