如何把word文档转换成html格式?大伙帮我看看.

[zhuchengfu]

Dim strErr

strErr = WordToHtm

Function WordToHtm()

On Error Resume Next
Dim wrdApp, wrdDoc, strPath, strFileName

strFileName = "B41.doc"
Set wrdApp = CreateObject("word.application")
Set wrddoc = wrdapp.Documents.Open("D:\Liangx\TestDoc\" & strFileName, True, False)
Msgbox "aaa" & Err.Description
wrdApp.ChangeFileOpenDirectory "D:\liangx\TestDoc\"

wrdDoc.SaveAs "B41.htm", wdFormatHTML
Msgbox "bbb" & Err.Description
wrdDoc.Close
wrdApp.Quit
Msgbox Err.Description
End Function

Function Test()
On Error Resume Next
Dim objReg, objFA, strFileName, strFileData, strAbsPath
Dim strCipher, strSafety_grade

strAbsPath = "D:\ExOA2000\Server\ExFLow\FlowData\DF3\"
strFileName = "B41.doc"
Set objReg = CreateObject("EXREGTOOLS.RegInfo")
strSafety_grade = objReg.ReadValue("ExFlow","safety grade")
strCipher = objReg.ReadValue("ExFlow","cipher")
Set objReg = Nothing

Set objEncrypt = CreateObject("ExEncrypt.IEncrypt")
objEncrypt.DecryptFileToData Cstr(strAbsPath & strFileName),strCipher,strFileData
set objEncrypt = nothing

Set objFA = CreateObject("ExFileAccess.ExFileSys")
'objFA.readFile strAbsPath & strFileName, strFileData

objFA.WriteFile "D:\Liangx\TestDoc\" & strFileName, strFileData
strFileData = ""

Set objFA = Nothing
Test = Err.Description

End Function
当我把上面的函数存成VBS执行的时候,转换出来的html是乱码.

[孟子E章]

'**********************************************************
'
' 调用方法：doc2html c:\doc2html c:\doc2html
' 调用方法：doc2html -s c:\doc2html\a.doc c:\doc2html
'
'**********************************************************

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

[jianghuxiaozi]

UP