AlexPGP's Corner

When a document is displayed in revision mode, it is sometimes difficult to make sense of what the final result is supposed to look like, because either you can't tell if a character has been struck through (my preference) or because the revisor was in a playful mood or suffers under the delusion that the computer can generate only a limited number of letters and thus, new text must reuse as many previous letters as possible (even if the resulting revised text cannot be read without suppressing what has been deleted).

And thus, the first of my "reconstituted" macros, what amounts to a one-liner that toggles the DeletedTextMark option:

Sub ToggleRevModeDisplay()
'
If Options.DeletedTextMark = wdDeletedTextMarkHidden Then
    Options.DeletedTextMark = wdDeletedTextMarkStrikeThrough
    Else
    Options.DeletedTextMark = wdDeletedTextMarkHidden
End If
End Sub

Cheers...