Deletes the specified number of characters or words.
This method returns a Long value that indicates the number of items deleted, or it returns 0 (zero) if the deletion was unsuccessful.
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
The following arguments are optional
Count - The number of units to be deleted. To delete units after the range, collapse the range and use a positive number. To delete units before the range, collapse the range and use a negative number