Selection.Cut (Word)

Quita el objeto especificado del documento y lo coloca en el Portapapeles.

El contenido de la selección se mueve al Portapapeles, pero permanece en el documento una selección contraída.

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