TXT转HTM、HTML「TXT转网页」的vbs实现代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| dFormatRTF 6 RTF 格式。 wdFormatTemplate 1 Word 模板格式。 wdFormatText 2 Microsoft Windows 文本格式。 wdFormatTextLineBreaks 3 Windows 文本格式，并且保留换行符。 wdFormatUnicodeText 7 Unicode 文本格式。 wdFormatWebArchive 9 Web 档案格式。 wdFormatXML 11 可扩展标记语言 (XML) 格式。 wdFormatDocument97 0 Microsoft Word 97 文档格式。 wdFormatDocumentDefault 16 Word 默认文档文件格式。对于 Microsoft Office Word 2007，这是 DOCX 格式。 wdFormatPDF 17 PDF 格式。 wdFormatTemplate97 1 Word 97 模板格式。 wdFormatXMLDocument 12 XML 文档格式。 wdFormatXMLDocumentMacroEnabled 13 启用了宏的 XML 文档格式。 wdFormatXMLTemplate 14 XML 模板格式。 wdFormatXMLTemplateMacroEnabled 15 启用了宏的 XML 模板格式。 wdFormatXPS 18 XPS 格式。 ───────────────────────────────────────────────────────────────── Word实例退出: objWord.Quit 3. 完整代码 复制代码 代码如下: '' ******************************************************************************** '' TXT转网页，仅作转换演示 '' Created By 千羽之城 / 2009年9月22日 '' http://hi.baidu.com/asnahu '' ******************************************************************************** Dim objWord,objDoc,oRange,oPath Const wdStory = 6 Const wdMove = 0 Const wdOpenFormatUnicodeText = 5 Const wdFormatFilteredHTML = 10 strFile = "E:\temp\1.txt" '' 该路径必须是完整路径 Set objWord = CreateObject("Word.Application") objWord.Visible = True Set objDoc = objWord.Documents.Open(strFile, Format=5) Set oRange = objDoc.Range() oRange.Font.Size = "13" oRange.Font.Name = "Times New Roman" Set oSelection = objWord.Selection oSelection.HomeKey wdStory, wdMove oSelection.Style = objWord.ActiveDocument.Styles("标题 1") oPath = Split(strFile,".")(0) objDoc.SaveAs oPath & ".htm", 10 objDoc.Close objWord.Quit 如果要实现批量的多文本转换，那么建议生成一个TXT文件列表，然后用FSO调用其中内容，依次转换即可。 最后：该方法转换的质量比较高，但是也附带一些弊端，那便是垃圾代码很多，生成的网页文件很大。 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于TXT转HTM、HTML「TXT转网页」的vbs实现代码的所有评论
