Range.TextRetrievalMode (Word)

Returns a TextRetrievalMode object that controls how text is retrieved from the specified Range.

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