Selection.Copy (Word)

Copie la sélection spécifiée dans le Presse-papiers.

If Selection.Type = wdSelectionNormal Then 
 Selection.Copy 
 Documents.Add.Content.Paste 
End If