怎么用asp把doc转换成html
来源:互联网 发布:java无法加载主类main 编辑:程序博客网 时间:2024/04/29 20:59
Documents.Add "newdoc.doc"
ActiveDocument.SaveAs FileName:="newdoc.htm", FileFormat:=wdFormatHTML, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
ActiveWindow.View.Type = wdWebView
---------------------------------------------------------------
doc2html.vbs
'**********************************************************
'
' 调用方法: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
ActiveDocument.SaveAs FileName:="newdoc.htm", FileFormat:=wdFormatHTML, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
ActiveWindow.View.Type = wdWebView
---------------------------------------------------------------
doc2html.vbs
'**********************************************************
'
' 调用方法: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
- 怎么用asp把doc转换成html
- 把Doc文档转换成HTML等其它格式
- 把Doc文档转换成HTML等其它格式
- 把Doc文档转换成HTML等其它格式
- 怎么把一篇pdf转换成html
- 怎么把pdf文件转换成html格式
- 把Doc文档转换成rtf格式
- 把Doc文档转换成rtf格式
- python学习:HTML转换成doc
- 把Doc文档转换成rtf格式 [C#]
- 如何用C#把Doc文档转换成rtf格式
- Linux下使用libreoffice把doc转换成Pdf
- 怎么将.bmp文件转换成.doc文件
- 多种方法教你 Docx怎么转换成Doc
- 用NSString怎么把UTF8转换成unicode
- 怎么用PDF转换器把pdf转换成word
- 用Word宏来实现批量将HTML转换成DOC
- 用Word宏来实现批量将HTML转换成DOC
- 在窗口中初始化D3D 8
- XML-DOM
- 学习dynamic_cast中.....
- 关于vpn的文章
- session的用法具体解说
- 怎么用asp把doc转换成html
- 在Rational Application Developer中开发简单Portlet(二)
- [深入剖析ASP.NET组件设计]一书第三章关于ASP.NET运行原理讲述的补白
- 批处理删除特定时间以前的文件
- standard xmlrpc
- .net 中如何将framework 与应用程序打包生成安装文件
- Web打印控制技术的几种方案
- Mysql | 事务&存储过程
- 冲动是魔鬼—情绪十大格言