Track changes

Guessed · #2 05-07-2024, 05:13 PM

I don't think you will have much luck using the find/replace dialog to find instanced of tracked revisions and exclude non-tracked content.

But it is possible to use a macro to step through all tracked revisions to find specific instances where a character was tracked and accept just those revisions.

Code:

Sub AcceptCharChanges()
  Dim aRev As Revision, aChar As String
  aChar = vbCr
  For Each aRev In ActiveDocument.Revisions
    If aRev.Type = wdRevisionInsert Then
      If aRev.Range.Text = aChar Then aRev.Accept
    End If
  Next aRev
  aChar = Chr(31)
  For Each aRev In ActiveDocument.Revisions
    If aRev.Type = wdRevisionInsert Then
      If aRev.Range.Text = aChar Then aRev.Accept
    End If
  Next aRev
End Sub

This does feel like throwing peas at an army tank. If you have tracked 8500 changes across 3000 paragraphs and only want to accept 10-20 instances (to come back to 8480 changes) then I seriously question the point of the cleanup exercise.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find a Specific word in doc file using VBA	Priyantha Gamini	Word VBA	7	12-14-2022 05:18 AM
Find/remove underline with specific color	eduzs	Word VBA	9	07-27-2020 07:43 AM
Can you create multiple AutoCorrect rules for the same phrase in different cases?	Janelle	Word	4	07-22-2016 09:33 AM
Find specific rows then copy and paste to new doc	konopca	Word VBA	5	02-20-2014 02:34 PM
How to find a specific word in Powerpoint?	Ozard80	PowerPoint	0	05-11-2011 04:42 PM