根据EXCEL数据自动生成WORD文档

如何通过excel批量生成word文件？大家应该都有批量生成word文件的工作经历。

相信有很多小伙伴都遇到过，一个excel表格里有一批明细数据，然后需要一次性把这些明细数据生成对应的word文件，这项工作如果手动做，一个一个的创建word文件，那工作效率会非常的低。有没有高效快捷的办法批量生成呢？答案是有的。

Excel魔方插件可以一键搞定。

 

我们提前制作好1个word模版，需要替换的内容部分加上【】即可。

 然后打开excel魔方，找到excel明细生成word按钮

 

选择对应关系，即可一键生成

 

 

支持多文档，单文档。支持打印pdf。

 

参考代码：

Sub word2excel()
    On Error Resume Next
    pth = Application.GetOpenFilename("文件(*.*),*.*", , "请选择文件", , 0)
    Set docapp = GetObject(, "word.Application")
    If Err Then
        Err.Clear
        Set docapp = CreateObject("word.Application") '新建word对象，打开具体文件
    Else
        For Each doc In docapp.documents
            If doc.FullName = pth Then '利用已打开的word对象，获取数据
                ThisWorkbook.ActiveSheet.Cells(1, 1) = doc.tables(1).Range.Cells(10)
            Else
            End If
        Next
    End If
    docapp.Quit
End Sub