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

2003-03-05 11:56:18 147 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

wps linux 程序转pdf文件,wps转pdf服务器 C#将Word转换成PDF方法总结(基于Office和WPS两种方案)有时候，我们需要在线上预览word文档，当然我们可以用NPOI抽出Word中的文字和表格，然后显示到网页上面，但是这样会丢失掉Word中原有的格式和图片。一个比较好的办法就是将word转换成pdf，然后让客户预览，下面来看一下基于Office和WPS的两种解决方案。一、基于Office的解...文章雲霏霏2015-05-2224... 阅读详情

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是乱码.

...全文

Cadence HDL原理图库避坑指南：从Excel导入引脚到解决‘V- V+’报错（附FPGA实例）本文详细介绍了Cadence HDL原理图库的高效构建与排错方法，重点讲解如何从Excel智能导入引脚数据并优化FPGA封装设计。通过数据预处理、智能导入和深度排错三个关键阶段，帮助工程师避免常见错误如‘V- V+’报错，提升设计效率和准确性。阅读详情

zhuchengfu

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

jianghuxiaozi 2003-03-10

打赏
举报

孟子E章 2003-03-05

打赏
举报

'**********************************************************
'
' 调用方法：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

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

相关推荐