如何使用vba清除word文档里的所有内容？

[stuman]

如何使用vba清除word文档里的所有内容？谢谢！！

[fice_chen]

dim doc as document
set doc=activedocument
doc.selectionstart=0
doc.selectionend=len(doc.content)
selection.text=""
doc.save

[fice_chen]

不好意思，昨天写错了，按.net的习惯了，新的代码：
dim doc as document
set doc=activedocument
selection.start=0
selection.end=len(doc.content)
selection.text=""
doc.save