Selection.Copy (Word)

Kopiert die angegebene Auswahl in die Zwischenablage.

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