Range.ShowAll (Word)

True se todos os caracteres não imprimíveis como texto oculto, marcas de tabulação, marcas de espaço e marcas de parágrafo são exibidos. Boolean de leitura/gravação.

Essa propriedade afeta somente o intervalo especificado quando a exibição da marcação é definida para Mostrar revisões em balões. Quando Range. ShowAll é definido como false, Range. Text fornece todo o texto no intervalo, exceto o texto excluído. Se você definir Range. ShowAll como true, Range. Text fornece todo o texto no intervalo, incluindo o texto que foi excluído.

Sub HideDeletedText()
Dim r As Range

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

End Sub