Excel表格数据填充到word模板中

最新推荐文章于 2024-07-21 20:44:36 发布

bjjgq

最新推荐文章于 2024-07-21 20:44:36 发布

阅读量2.7k

点赞数

分类专栏： VBA 文章标签： microsoft

本文链接：https://blog.csdn.net/bjjgq/article/details/123999087

版权

这个需求源于要批量生成模板一样的word文档。当然可以直接使用word的邮件合并功能，点菜单就可以实现，示例代码如下：

要使用这些代码，需要引用2个库microsoft word,microsoft office，如果使用到客体界面的话，还要引用microsoft Forms。本代码可以同时利用两个模板生成新的文档。其原理就是查找替换，没啥，减轻工作量。

Sub cmdPrinta_Click()
    
    Dim mypath$, mypathN$, aar1
    Dim r1%, r2%, n2%, j%
    
    Dim Wordapp As Word.Application
    Dim WordD As Word.Document      '定义word类
    Set Wordapp = New Word.Application  '这里需要一个新的
    
    'Wordapp.ScreenUpdating =False             '屏幕刷新
    'Set WordD = Wordapp.Documents.Add                  '新建文档
    If Len(txtlujing) > 1 Then
        mypathN = txtlujing
    Else
        mypathN = ThisWorkbook.Path & "\"
    End If
    mypath = ThisWorkbook.Path & "\"
    
    '初始化参数，要替换
    aar1 = Sheets("说明文字").Range("c5:d23")
    tbldata = "sheet1"
    tepdoc1 =