亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 編程 > VBScript > 正文

TXT轉HTM、HTML「TXT轉網頁」的vbs實現代碼

2020-07-26 11:50:10
字體：大 中 小
來源：轉載
供稿：網友
在眾多文本編輯器中，Microsoft的Word是功能很強大的。況且XP PRO本身支持VBS調用Word文檔對象，那么使用VBS是最好不過的了。思路如下：VBS打開Word，Word打開TXT，另存為網頁，退出。

1. VBS調用Word.Application組件

如果電腦中安裝了Word，那么用VBS打開Word其實很簡單，如下：

Set objWord = CreateObject("Word.Application")
objWord.Visible = True

這樣可以以可視的方式打開Word。在MSDN的頁面{http://msdn.microsoft.com/en-us/library/kw65a0we(VS.80).aspx}上我們可以看到在VBS中僅可以調用兩個Word的子集：

Document object 打開的文檔對象

Selection object 默認選擇對象

不過這兩個子集還包含子集，所以可以使用很多功能。Word文檔對象本身是VBA的組件，VBS和VBA又有著明顯的界限，所以雖然VBS可以調用Word文檔對象，但是具體怎么用又是個未知的領域。幸好從微軟的一些只言片語和一些短篇中能夠大概知道用法。

2. 使用Word實例打開TXT

在創建一個Word實例objWord后，我們應該用其打開TXT了，如下：

Set objDoc = objWord.Documents.Open("e:/temp/1.txt",Format=5)

現在已經打開一個TXT了，Format=5即是說TXT是Unicode的：

─────────────────────────────────────────────────────────────────
wdOpenFormatAllWord 6 與 Word 早期版本向后兼容的 Microsoft Office Word 格式。
wdOpenFormatAuto 0 現有格式。
wdOpenFormatDocument 1 Word 格式。
wdOpenFormatEncodedText 5 編碼文本格式。
wdOpenFormatRTF 3 RTF 格式。
wdOpenFormatTemplate 2 用作 Word 模板。
wdOpenFormatText 4 未編碼的文本格式。
wdOpenFormatUnicodeText 5 Unicode 文本格式。
wdOpenFormatWebPages 7 HTML 格式。
wdOpenFormatXML 8 XML 格式。
wdOpenFormatAllWordTemplates 13 Word 模板格式。
wdOpenFormatDocument97 1 Microsoft Word 97 文檔格式。
wdOpenFormatTemplate97 2 Word 97 模板格式。
wdOpenFormatXMLDocument 9 XML 文檔格式。
wdOpenFormatXMLDocumentMacroEnabled 10 啟用了宏的 XML 文檔格式。
wdOpenFormatXMLTemplate 11 XML 模板格式。
wdOpenFormatXMLTemplateMacroEnabled 12 啟用了宏的 XML 模板格式。
─────────────────────────────────────────────────────────────────

由于Word打開TXT后默認字體大小為10.5磅，這個值在網頁中是很小的，合適的值是13~15磅，所以需要更改字體大小，同時還需要更改一下默認的西方字體，這里選用--Times New Roman：

Set oRange = objDoc.Range()
oRange.Font.Size = "13"
oRange.Font.Name = "Times New Roman"

然后就是首行應用“標題一”樣式，如果首行為空行那么用編輯器使其不為空，其實也可以在VBS中實現，不過代碼量增加，這樣就很麻煩不利調試：

Set oSelection = objWord.Selection
oSelection.HomeKey wdStory, wdMove
oSelection.Style = objWord.ActiveDocument.Styles("標題 1")

更改完成后，保存：

objDoc.SaveAs oPath & ".htm", 10
objDoc.Close

下面是wdSaveFormat常數列表：

─────────────────────────────────────────────────────────────────
wdFormatDocument 0 Microsoft Office Word 格式。
wdFormatDOSText 4 Microsoft DOS 文本格式。
wdFormatDOSTextLineBreaks 5 Microsoft DOS 文本格式，并且保留換行符。
wdFormatEncodedText 7 編碼文本格式。
wdFormatFilteredHTML 10 篩選的 HTML 格式。
wdFormatHTML 8 標準 HTML 格式。
wdFormatRTF 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調用其中內容，依次轉換即可。

最后：該方法轉換的質量比較高，但是也附帶一些弊端，那便是垃圾代碼很多，生成的網頁文件很大。

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
亚洲第一区中文99精品| 91九色在线视频| 5566成人精品视频免费| 欧美精品videos另类日本| 美女性感视频久久久| 亚洲人成77777在线观看网| 国产精品久久久久久av| 精品久久久一区| 中文字幕欧美在线| 91精品啪在线观看麻豆免费| 欧美大片在线看| 久久久久国产精品一区| 国产视频精品一区二区三区| 亚洲欧美成人精品| 亚洲已满18点击进入在线看片| 国产精品www网站| 国产日韩av在线播放| 国产午夜精品美女视频明星a级| 91成人免费观看网站| 九九热精品视频国产| 97涩涩爰在线观看亚洲| 久久夜精品香蕉| 成人有码视频在线播放| 日韩中文字幕在线视频| 亚洲精品日韩av| 色综合视频一区中文字幕| 色哟哟入口国产精品| 欧美激情视频在线观看| 日本高清+成人网在线观看| 亚洲在线观看视频| 欧美成人免费全部| 国产精品丝袜久久久久久高清| 国产精品扒开腿做爽爽爽视频| 亚洲自拍偷拍第一页| 精品国产91久久久久久| 欧美最猛性xxxxx(亚洲精品)| 精品视频在线播放免| 国产成人拍精品视频午夜网站| 中文字幕欧美日韩在线| 久久精品视频中文字幕| 国产亚洲欧美日韩精品| 国产精品扒开腿做爽爽爽视频| 色综合久久久久久中文网| 久久av红桃一区二区小说| 国产一区二区三区四区福利| 亚洲最新av网址| 欧美日韩国产色视频| 亚洲免费中文字幕| 91精品国产乱码久久久久久蜜臀| 欧美精品videossex88| 亚洲精品美女在线| 欧美性开放视频| 日韩a**站在线观看| 亚洲第一网站免费视频| 国产成人精品优优av| 在线国产精品播放| 国产精品无码专区在线观看| 96精品久久久久中文字幕| 国产一区二区av| 91午夜在线播放| 欧美国产日韩一区二区三区| 96国产粉嫩美女| 精品偷拍一区二区三区在线看| 欧美尤物巨大精品爽| 国产精品96久久久久久| 97国产精品久久| 亚洲另类图片色| 国产精品成人免费视频| 久久精视频免费在线久久完整在线看| 国产精品欧美激情在线播放| 精品国产一区二区三区在线观看| 欧美一区亚洲一区| 亚洲欧美中文日韩在线| 日韩精品有码在线观看| 欧美成人精品xxx| 色综合久综合久久综合久鬼88| 欧洲亚洲免费视频| 亚洲最大的免费| 欧美一级免费视频| 亚洲精品久久久久国产| 96pao国产成视频永久免费| 欧美在线中文字幕| 日本精品中文字幕| 亚洲国产精彩中文乱码av| 国产精品视频色| 久久国产精彩视频| 日韩电视剧在线观看免费网站| 91在线视频一区| 亚洲精品美女久久久| 日韩有码视频在线| 国产精品色视频| 亚洲乱码国产乱码精品精| 中文字幕亚洲综合久久筱田步美| 色偷偷偷亚洲综合网另类| 国内揄拍国内精品少妇国语| 欧美激情啊啊啊| 国产欧美一区二区三区四区| 原创国产精品91| 亚洲a区在线视频| 亚洲精品一区中文字幕乱码| 亚洲跨种族黑人xxx| 亚洲a一级视频| 日韩av成人在线观看| 欧美激情成人在线视频| 久久国产精品影视| 久久久久久久一区二区| 色偷偷噜噜噜亚洲男人| 国产一级揄自揄精品视频| 欧美亚洲在线播放| 国产精品18久久久久久麻辣| 国产在线精品自拍| 国产丝袜一区视频在线观看| 麻豆国产va免费精品高清在线| 久久久久久久久久久av| 国产精品美女视频网站| 亚洲 日韩 国产第一| 国产亚洲综合久久| 欧美风情在线观看| 最新国产成人av网站网址麻豆| 日韩欧美aⅴ综合网站发布| 国产精品一区二区三区成人| 神马国产精品影院av| 欧美高清性猛交| 亚洲午夜国产成人av电影男同| 一本一本久久a久久精品综合小说| 国产午夜精品全部视频在线播放| 久久影视电视剧免费网站| 久久久久久国产| 久久视频国产精品免费视频在线| 亚洲欧美中文字幕在线一区| 国产亚洲aⅴaaaaaa毛片| 欧美黑人巨大精品一区二区| 日本午夜在线亚洲.国产| 91国内免费在线视频| 久久精品成人动漫| 欧美性xxxxxxxxx| 成人在线国产精品| 成人444kkkk在线观看| 96sao精品视频在线观看| 性欧美xxxx| 一区二区日韩精品| 久久久久亚洲精品国产| 欧美自拍视频在线观看| 欧美裸体xxxx极品少妇| 国产成人短视频| 色综合久久悠悠| 日韩电影大全免费观看2023年上| 国语自产精品视频在线看| 亚洲视频网站在线观看| 亚洲精品美女在线观看| 在线成人激情黄色| 国产精品久久久999| 国产亚洲欧美日韩美女| 国产亚洲一区二区在线| 成人h视频在线| 51色欧美片视频在线观看| 欧美大片第1页| 97视频在线观看成人| 亚洲一区二区三区四区视频| 色诱女教师一区二区三区| 久久久久久999| 日韩女优人人人人射在线视频| 日本成人激情视频| 日韩精品视频中文在线观看|