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