Range.TextRetrievalMode (Word)

Retorna um objeto TextRetrievalMode que controla como o texto é recuperado do intervaloespecificado. Leitura/gravação.

If Selection.Type = wdSelectionNormal Then 
 Set Range1 = Selection.Range 
 Range1.TextRetrievalMode.IncludeHiddenText = False 
 Set Range2 = ActiveDocument.Paragraphs(2).Range 
 Range2.InsertAfter Range1.Text 
End If