批量修改html转word,用Word宏来实现批量将HTML转换成DOC

环境：OFFICE WORD 2007

打开WORD，在菜单的“视图”->“宏”->“查看宏”->“创建”

Sub 宏1()

Dim MyFile As String

Dim Arr(1000) As String'一次处理最大的文件数量，根据需要修改数字1000改为需要处理的数量

Dim count As Integer

MyFile = Dir("F:\待处理的HTML目录\" & "*.html")

count = count + 1

Arr(count) = MyFile

Do While MyFile <> ""

MyFile = Dir

If MyFile = "" Then

Exit Do

End If

count = count + 1

Arr(count) = MyFile '将文件的名字存在数组中

Loop

For i = 1 To count

Documents.Open FileName:="F:\待处理的HTML目录\" & Arr(i), ConfirmConversions:=False, ReadOnly:= _

False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _

"", Revert:=False, WritePasswordDocument:="