Selection.Copy (Word)

Copia a seleção especificada para a Área de Transferência.

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