Range.ShowAll (Word)

True if all nonprinting characters (such as hidden text, tab marks, space marks, and paragraph marks) are displayed.

This property only affects the specified range when Show Markup is set to Show Revisions in Balloons. When Range.ShowAll is set to False, Range.Text provides all of the text in the range except deleted text. If you set Range.ShowAll to True, then Range.Text provides all of the text in the range including the text that was deleted.

Sub HideDeletedText()
Dim r As Range

Set r = ActiveDocument.Range
r.ShowAll = False
Debug.Print r.Text

End Sub