Selection.Cut (Word)

Remove o objeto especificado do documento e o move para a área de transferência.

O conteúdo da seleção é movido para a área de transferência, mas uma seleção recolhida permanece no documento.

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