用Word宏来实现批量将HTML转换成DOC

环境：OFFICE WORD 2007

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

http://blog.csdn.net/aminfo/article/details/38760093 

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:="", WritePasswordTemplate:="", _        Format:=wdOpenFormatAuto, XMLTransform:=""        ActiveDocument.SaveAs FileName:="F:\处理后DOC保存的目录\" & Replace(Arr(i), ".html", ".doc"), FileFormat:=wdFormatDocument, _        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _        False        ActiveDocument.Close    NextEnd Sub

http://blog.csdn.net/aminfo/article/details/38760093
然后保存运行即可。