Selection.Copy (Word)

Copies the specified selection to the Clipboard.

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