Selection.Cut (Word)

Entfernt das angegebene Objekt aus dem Dokument und verschiebt es in die Zwischenablage.

Die Inhalte der Markierung werden in die Zwischenablage verschoben, es bleibt jedoch eine reduzierte Markierung im Dokument erhalten.

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