Range.ShowAll (Word)

True si se muestran todos los caracteres no imprimibles (como texto oculto, marcas de tabulación, marcas de espacios y marcas de párrafo).

Esta propiedad sólo afecta al intervalo especificado cuando Mostrar marcas está establecida para Mostrar revisiones en globos.

Sub HideDeletedText()
Dim r As Range

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

End Sub