Range.Delete (Word)

Elimina el número de caracteres o palabras especificado.

Este método devuelve un valor de tipo Long que indica el número de elementos eliminados, o bien devuelve 0 (cero) si la eliminación no se ha realizado correctamente.

Delete (Unit, Count)

Sub DeleteSelection() 
 Dim intResponse As Integer 
 
 intResponse = MsgBox("Are you sure you want to " & _ 
 "delete the contents of the document?", vbYesNo) 
 
 If intResponse = vbYes Then 
 ActiveDocument.Content.Select 
 Selection.Delete 
 End If 
End Sub

Arguments

Optional arguments

Los siguientes argumentos son opcionales

Unit (WdUnits) - La unidad por la que se va a eliminar el intervalo contraído.

Aquí puede ver valores posibles para WdUnits

Count (Long) - Número de unidades que se deben eliminar.