Dim docTemp As Word.Document
Dim prjTemp As New Word.Application Set docTemp = prjTemp.Documents.Open("asfddf", , , , "YourOpenDocPwd", "YourTemplatePwd", , "WriteDocPwd", "WriteTemplatePwd")' docTemp.SaveAs "FileName", wdFormatHTML
docTemp.Close
prjTemp.Quit
Set prjTemp = Nothing
Dim prjTemp As New Word.Application Set docTemp = prjTemp.Documents.Open("asfddf", , , , "YourOpenDocPwd", "YourTemplatePwd", , "WriteDocPwd", "WriteTemplatePwd")' docTemp.SaveAs "FileName", wdFormatHTML
docTemp.Close
prjTemp.Quit
Set prjTemp = Nothing
http://jimoptt.qd.sd.cn/~leehaibo/soft/63.htm