请教excel数据按word模板批量套打后逐个打印

jian82372387

word模板设置为横向的A4纸，将两个相同的表格放置在上面，请问如何将excel数据源里的数据按照基数行的数据按相关名称放在左侧表格，偶数行的数据按相关名称放置在右侧表格，再打印（或者生成在同一个word文档里手动打印也行），请教大神们改一下代码，谢谢

3190496160

Sub 批量生成word()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim d As Object, dc As Object
Set d = CreateObject("scripting.dictionary")
Set dc = CreateObject("scripting.dictionary")
Dim wdApp As Object
Set wdApp = CreateObject("Word.Application")   '新建Word对象
wdApp.Visible = True
lj = ThisWorkbook.Path & "\"
mb = lj & "模板.docx"
tt = Timer
Set ww = ThisWorkbook
With ww.Worksheets("Sheet1")
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    ar = .Range("a1:l" & rs)
End With
For i = 2 To UBound(ar) - 1 Step 2
    mc = ar(i, 1) & "-" & ar(i + 1, 1)
    FileCopy mb, lj & "\生成的表格\" & mc & ".docx"
    Set wdd = wdApp.Documents.Open(lj & "\生成的表格\" & mc & ".docx")
    For s = i To i + 1
        For j = 1 To 12
            zd = ar(s, j)
            With wdApp.Selection
                .HomeKey unit:=6 '光标置于文件首
                If .Find.Execute("数据" & Format(j, "00")) Then '查找到指定字符串
                    .Font.Color = wdColorAutomatic '字符为自动颜色
                    .Text = zd '替换字符串
                End If
            End With
        Next j
    Next s
    wdd.Close True
Next i
wdApp.Quit
Set wdd = Nothing
Set wdApp = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "耗时：" & Format(Timer - tt, "0.00") & "秒"
End Sub

3190496160

Excel数据按Word模批量打印板.rar (106.48 KB, 下载次数: 19)

2024-10-25 15:11 上传

点击文件名下载附件

3190496160

jian82372387

3190496160 发表于 2024-10-25 15:12

请问能不能按照B列学校名称设置多几个文件夹放置不同学校的word文档方便打印？

3190496160

jian82372387 发表于 2024-10-25 17:14
请问能不能按照B列学校名称设置多几个文件夹放置不同学校的word文档方便打印？

注册了3年多的老会员，发了近40个帖子了，应该是知道论坛求助的规矩了呀
论坛是做义务的，没人愿意在一个问题上反复折腾的，特别是没有任何挑战性的问题，所以，一开始就要把自己的真实意图全部表述清楚

jian82372387

好的，感谢

gwjkkkkk

请参考。。。

gwjkkkkk

jian82372387 发表于 2024-10-25 17:14
请问能不能按照B列学校名称设置多几个文件夹放置不同学校的word文档方便打印？

请参考。。。

jian82372387

gwjkkkkk 发表于 2024-10-25 19:35
请参考。。。

有问题，我需要的时word表格里左右两个表格各填入一条数据，左边表格填基数行数据，右边表格填偶数行数据，B列相同类直接生成在同一个word文档里，测试出来左右表格都是填入都一条数据了，麻烦啦