Microsoft Office Forums - View Single Post - Find and replace all the text flagged with the 'wdDeletedTextMarkStrikeThrough' property

alex100 · 08-30-2020, 09:29 AM

Is there a way to search and replace all the text that's flagged with the 'wdDeletedTextMarkStrikeThrough' property?

I tried the code below, but it doesn't work...

Code:

  With ActiveDocument.Content.Find
    .ClearFormatting
    .Font.DeletedTextMark = wdDeletedTextMarkStrikeThrough
    With .Replacement
        .ClearFormatting
        .Font.ColorIndex = wdRed
    End With
    .Execute FindText:="", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
  End With

Once it has been marked in red, I'd like to reject all the document revisions, so that the text will not get deleted. The following code line seems to work fine:

Code:

     ActiveDocument.RejectAllRevisions

Thank you!

Alex