Range.TextRetrievalMode (Word)

Renvoie un objet TextRetrievalMode qui contrôle la manière dont le texte est extrait de la plagespécifiée.

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