Find and replace all the text flagged with the 'wdDeletedTextMarkStrikeThrough' property

Guessed · #4 08-31-2020, 01:23 AM

Looping from the start can be bad if you are changing the number of revisions inside your loop. You should start from the back if that is the case. If rejecting the revision is problematic, maybe make sure you aren't revision tracking the font formatting steps.

Code:

Sub ManualRevisions()
  Dim iRev As Long
  ActiveDocument.TrackRevisions = False
  For iRev = ActiveDocument.Revisions.Count To 1 Step -1
    With ActiveDocument.Revisions(iRev)
      Select Case .Type
        Case wdRevisionDelete, wdRevisionCellDeletion    '2 & 17
          .Range.Font.ColorIndex = wdRed
          .Range.Font.Shading.BackgroundPatternColor = RGB(222, 222, 222)
          .Reject
      End Select
    End With
  Next iRev
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA to find text, replace with multiple lines of text	noslenwerd	Word VBA	3	12-31-2019 11:04 AM
Find and replace text with wildcards	arunchandar9	Word VBA	15	06-30-2019 01:06 AM
Macro to find text and replace with form field containing that text	iiiiifffff	Word VBA	16	06-04-2016 01:47 AM
Macro to find coloured text and replace with form-field/formtext containing that text	tarktran	Word VBA	1	11-26-2014 08:12 AM
Find and replace a string of text	errtu	Word	1	01-31-2013 02:09 PM