Delete contents of active Word document

How can I delete the all of the contents of the active word document.

Plz guide.

VB Code:

Activedocument.Content = ""

zaza