如何把word文档转换成html

Dim  Objword  
Dim  Objdoc  
Dim  Objfso  
Dim  Strsource  
Dim  Strtarget  
Dim  Bbatch  
 
'得到命令行参数，有三种可能的格式：[-s]  要进行转换的源文件目录或文件  转换成Html文件后保存的目录  
Function  Getparams()  
Dim  Objarg  
         If  Wscript.Arguments.Count  >=  2  Then  
                   If    Wscript.Arguments.Item(0)  =  "-s"  Or  Wscript.Arguments.Item(0)  =  "-S"  Then  
                             Strsource  =  Wscript.Arguments.Item(1)  
                             Strtarget  =  Wscript.Arguments.Item(2)  
                             Bbatch  =  False  
                   Else  
                             Strsource  =  Wscript.Arguments.Item(0)  
                             Strtarget  =  Wscript.Arguments.Item(1)  
                             Bbatch  =  True  
                   End  If  
         Else  
                   Wscript.Quit(1)  
         End  If  
End  Function  
 
Function  Batchprocessing()  
Dim  Objfolder  
Dim  Objfile  
Dim  Lpos  
Dim  Strfilename  
         Lpos  =  0  
         Set  Objfolder  =  Objfso.Getfolder(Strsource)  
         For  Each  Objfile  In  Objfolder.Files  
                   Lpos  =  Instr(1,Mid(Objfile.Path,Len(Objfile.Path)  -  3,4),"Doc",1)  
                   If  Lpos  >  0  Then  
                             Strfilename  =  Objfso.Getbasename(Objfile.Path)  
                             Wordinterface  Objfile.Path,Strfilename  
                   End  If  
         Next  
End  Function  
 
 
Function  Singleprocessing()  
Dim  Objfile  
         Set  Objfile  =  Objfso.Getfile(Strsource)  
         Strfilename  =  Objfso.Getbasename(Objfile.Path)  
         Wordinterface  Objfile.Path,Strfilename  
End  Function  
 
Function  Wordinterface(Strfilename,Formattedfilename)  
         Objword.Documents.Open  Strfilename  
         Set  Objdoc  =  Objword.Activedocument  
         'Stop  
         'set  The  Title  Of  The  Document  To  Match  The  Filename  
         Objdoc.Builtindocumentproperties(1)  =  Formattedfilename  
         '1  =  Wdpropertytitle  In  Vba  
 
         Objdoc.Saveas  Strtarget  &  "/"  &  Formattedfilename  &  ".htm",8  
         'objdoc.Saveas  "C:/Doc2Html/"  &  Formattedfilename  &  ".htm",8  
         On  Error  Resume  Next  
         Objdoc.Close  
End  Function  
 
'stop  
Set  Objfso  =  Createobject("Scripting.FileSystemObject")  
Set  Objword  =  Createobject("Word.Application")  
Objword.Visible  =  False  
Call  Getparams  
 
If  Bbatch  Then  
         Call  Batchprocessing  
Else  
         Call  Singleprocessing  
End  If  
 
Objword.Quit  
Set  Objword  =  Nothing