诡异

Dim  objWD  objDOC  
set  objWD=creatobject("word.application")  
         objWD.visible=true  
      
         objWD.document.add  
set  objDOC=objWD.activeDocument  
         objDOC.typetext="word"  
         objDOC.saveas  "word.doc"  
   
         objWD.quit  
set  objDOC=nothing  
set  objWD=nothing