Track changes

Dan99881 · #1 05-07-2024, 03:52 PM

I have a huge word file in which I've been using track changes for many years. There are about 8.5 thousand track changes.

I wonder if there's a way to search for particular cases of track changes, otherwise there'll be no other way but checking them all one by one.

I'd like to accept all end-of-line hyphenation ("^-"), but keep most of the remaining track changes as they are.

After that, I'd like to find "^p" instances but only the few ones under track changes, so I could review only them one by one. If I search all "^p" ("tracked" or not), I'll have to review 3 thousand paragraphs, but only about 10 or 20 are under track changes, and these are the ones I'd like to reach.

I've read many times on the internet that there is no way to search specific changes within track changes, but I thought I should take some advice here before starting to check +-8,500 changes one by one.

Thanks in advance.

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.

Dan99881 · #3 05-22-2024, 03:50 PM

Thank you so very much, Guessed! It worked perfectly!

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