Selection.Copy (Word)

Copia la selección especificada en el Portapapeles.

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