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

浏览数：34 / 时间：2015年06月09日

环境：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
    Next
End Sub

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

郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。

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