如何用vb编写将word文件转成txt或html文件的程序？

sub convert()
dim word as Object
dim fileName as String
word=createObject("word.Application")
openfileName="c:\test.doc"
word.Documents.open fileName
word.ActiveDocument.Saveas fileName:="c:\test",FileFormat:=2  '存储为“txt”格式文件
word.ActiveDocument.close
word.quit
End sub
我记得大概是这个样子，如果想转换为html格式，将FileFormat改一下即可，（不同的机器这个值可能不同）