建立word对象       
  set objwordApp = CreateObject("Word.Application")       
  objwordApp.DisplayAlerts=false                                               
  objwordApp.Application.Visible=false                                                      
  读取已有word文件       
  strAddr = Server.MapPath(".")       
  objwordApp.Open(strAddr &"\Templet\test.doc")       
  另存word文件       
  objword.SaveAs strAddr & "\Temp\test.htm" 
           objword.Save                                                                             
 objwordApp.Quit        
  set objwordApp = Nothing   

你用一个EDIT就可以达到你要的功能的！网上好多！