Range.TextRetrievalMode (Word)

Devuelve un objeto TextRetrievalMode que controla el modo en que se recupera el texto del rangoespecificado.

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