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

最新推荐文章于 2021-06-05 10:49:49 发布

AMinfo

最新推荐文章于 2021-06-05 10:49:49 发布

阅读量9.2k

点赞数 1

文章标签：宏 word html office

本文链接：https://blog.youkuaiyun.com/AMinfo/article/details/38760093

版权

在OFFICE WORD 2007环境下，通过宏的创建，可以实现批量将HTML文件转换为DOC文档。详细步骤包括在菜单中选择‘视图’->‘宏’->‘查看宏’->‘创建’，然后参照链接中的教程操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

环境：OFFICE WORD 2007

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

http://blog.youkuaiyun.com/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 File