How can I batch accept all track edit changes across multiple documents?

Question

I would like to accept all track edits across multiple (30-40 files) all at once without having to open up each file and then clicking Accept All Changes.

Answer 1

Hi @D Casey Kerrigan ,

I've moved this thread under the "Word" tag since this isn't related to Azure AD. There is a blog post here that details how to batch accept changes across multiple files. There also appear to be macros like the following that you can use to accept all tracked changes in all documents with a .doc, .docx or .docm extension in a folder:

Sub UpdateDocuments()
Application.ScreenUpdating = False
Dim strFolder As String, strFile As String, strDocNm As String, wdDoc As Document, Rng As Range
strDocNm = ActiveDocument.FullName
strFolder = GetFolder
If strFolder = "" Then Exit Sub
strFile = Dir(strFolder & "*.doc", vbNormal)
While strFile <> ""
If strFolder & "\" & strFile <> strDocNm Then
Set wdDoc = Documents.Open(FileName:=strFolder & "\" & strFile, AddToRecentFiles:=False, Visible:=False)
With wdDoc
For Each Rng In .StoryRanges
Rng.Revisions.AcceptAll
Next
.Close SaveChanges:=True
End With
End If
strFile = Dir()
Wend
Set wdDoc = Nothing
Application.ScreenUpdating = True
End Sub

Function GetFolder() As String
Dim oFolder As Object
GetFolder = ""
Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Choose a folder", 0)
If (Not oFolder Is Nothing) Then GetFolder = oFolder.Items.Item.Path
Set oFolder = Nothing
End Function

-
If the information provided was helpful to you, please remember to "mark as answer" so that others in the community with similar questions can more easily find a solution.

Answer 2

If you prefer to avoid macros, looking for a convenient user interface, and have the budget, there are standalone metadata removers that can accept all track edit changes (also called remove tracked changes) across multiple documents in bulk. Examples include BatchPurifier (by Digital Confidence), BigHand Metadata Management, and Litera Metadact.