TXT轉HTM、HTML「TXT轉網頁」的vbs實現代碼
2019-10-26 18:05:02
供稿：網友
在眾多文本編輯器中，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中實現，不過代碼量增加，這樣就很麻煩不利調試：
