用word宏命令批量实现html文件转word_cnvita

http://blog.sina.com.cn/u/6650562892

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

博客访问：
关注人气：
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

用word宏命令批量实现html文件转word

(2020-03-14 13:53:09)

标签：

cnvita

html文件

批量

转word

宏

分类：软件

用word宏命令批量实现html文件转word

打开Word

菜单“视图”-“宏”-“查看宏”-“创建”

粘贴以下代码运行即可

注意

需转换的html文件路径为D:\My Documents\2019\

转换后的word文件也在该目录下

具体文件路径根据情况自行更改

Sub HtmltoWord()
    Dim MyFile As String
    Dim Arr(1000) As String     '一次处理最大的文件数量，根据需要修改数字1000改为需要处理的数量
    Dim count As Integer
    MyFile = Dir("D:\My Documents\2019\" & "*.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:="D:\My Documents\2019\" & Arr(i), ConfirmConversions:=False, ReadOnly:= _
        False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
        "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
        Format:=wdOpenFormatAuto, XMLTransform:=""
        ActiveDocument.SaveAs FileName:="D:\My Documents\2019\" & 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

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：读医书

后一篇：豆瓣绿

新浪BLOG意见反馈留言板　欢迎批评指正