今天的文章中合肥达内将分享一些干货技能,如何用Word宏来实现批量将HTML转换成DOC?随合肥达内web培训一起去了解一下吧!
用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,
Pa