将vbs转换成html,将DOC转为HTML的宏vbs

Dim hb, fso, f, f1, s, sf

hb = InputBox("请输入原DOC文件所在的文件夹。", "取得原目录", "比如像C:\MYDOC\这样,注意有右下斜线。")

hT = InputBox("请输入您要保存生成后的HTML网页文件的文件夹。" & Chr(10) & Chr(10) & "没有的话,请新建后再点确定按钮.", "取得后目录", "比如像C:\MYHTM\这样,注意有右下斜线。")

If hb <> "" Then

Set Word = CreateObject("Word.Application")

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.GetFolder(hb)

Set sf = f.Files

For Each f1 In sf

mm=chr(32) & hb & f1.name & chr(32)

Set Doc = Word.Documents.Open(mm)

s = Doc.Name

l = Doc.Range

Call a(s, l, hT)

Doc.close

Next

word.quit

End If

Sub a(mu, t, llu)

On Error Resume Next

t = Replace(t, Chr(13), "
")

t = Replace(t, Chr(10), "
")

t = Replace(t, Chr(9), "  ")

a_t = llu & Replace(mu, ".doc", ".htm")

tm = "

" & mu & ""

A_n = CStr(Replace(t, Chr(13), "
"))

A_n = CStr(Replace(t, Chr(10), "
"))

A_n = tm & "" & CStr(mu) & "" & "
" & A_n

A_n = A_n & ""

Dim fsm, f2

Set fsm = CreateObject("Scripting.FileSystemObject")

Set f2 = fso.CreatetextFile(a_t, True)

f2.Write (A_n)

f2.Close

Set fsm = Nothing

End Sub