批量生成word文件，并打印所生成的word文件

dnvjfdeuff

求助大神，批量生成word文件，并打印所生成的word文件

3190496160

具体的需求啥也没说呀，
比如，
1、最关键的地方：根据excel表格的那个字段来生成wod文档？？？？
2.word文档中哪些地方是需要根据excel数据填写的？
3、目前word中表格只有三行，如果excel中的数据超过三行如何处理？？？

yvhgydn

Sub 收文单()
Dim newdoc As Object, wdoc As Object
    '如果CDE列最后一个单元格均完整填写执行生成收文单
    If Range("c65536").End(xlUp).Row = Range("d65536").End(xlUp).Row And Range("c65536").End(xlUp).Row = Range("e65536").End(xlUp).Row Then
        Set newdoc = CreateObject("word.application")
        newdoc.Visible = True
        newdoc.Documents.Add

        Set MYRANGE = newdoc.Activedocument.Range(Start:=0, End:=0) '设置表格起始点
        newdoc.Activedocument.Tables.Add Range:=MYRANGE, NumRows:=7, NumColumns:= _
                    2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
                    wdAutoFitFixed '新建收文表格
        With newdoc.Activedocument.Tables(1)
            .Style = "网格型"
            .Range.Font.Name = "方正仿宋_GBK" '设置所有表格内字体为仿宋
            .Range.Font.Size = 13 '设置所有表格内字体大小12磅
            .Columns(1).PreferredWidth = 100 '第一列宽
            .Columns(2).PreferredWidth = 300 '第二 列宽
            .Rows.Height = 100 '行高
            .Rows(1).Height = 35   '一二行高
            .Rows(2).Height = 80  '一二行高
            .Cell(1, 2).Split NumRows:=1, NumColumns:=2 '拆分第一二行单元格
            .Cell(2, 2).Split NumRows:=1, NumColumns:=2 '拆分第一二行单元格
            .Cell(1, 1).Range = "收文时间" '以下写入项目文本
            .Cell(1, 2).Range = "来文字号"
            .Cell(1, 3).Range = "来文机关"
            .Cell(3, 1).Range = "文件题目"
            .Cell(4, 1).Range = "党委主要领导批示"
            .Cell(5, 1).Range = "政府主要领导意见"
            .Cell(6, 1).Range = "分管领导阅处意见"
            .Cell(7, 1).Range = "承办部门办理意见"
            '从收文登记表将内容写入收文单
            .Cell(2, 1) = Range("b65536").End(xlUp) '收文时间
            .Cell(2, 2) = Range("c65536").End(xlUp) '来文字号
            .Cell(2, 3) = Range("d65536").End(xlUp) '来文机关
            .Cell(3, 2) = Range("e65536").End(xlUp) '文件题目
            .Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter '垂直居中
            .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '水平居中
        End With
        newdoc.Activate
'        MsgBox "rjfi"
        newdoc.Activedocument.PrintOut
        newdoc.Quit wdDoNotSaveChanges '关闭WORD
    End If
End Sub

我前几天刚好需要写了一个，只是我是每行新建的一个WORD，并且没有保存，打印完就关闭，看是否可以参考改一下

cmshun

你这个用WPS会员就很简单，用邮件功能生成，用批量打印功能，不过批量打印要会员

yvhgydn

供参考 EXCEL生成WORD供参考.rar (18.15 KB, 下载次数: 21)

2022-11-21 10:54 上传

点击文件名下载附件

smsn

邮件合并，百度就有

dnvjfdeuff

3190496160 发表于 2022-11-21 10:44
具体的需求啥也没说呀，
比如，
1、最关键的地方：根据excel表格的那个字段来生成wod文档？？？？

需要在E列加一个合同编号，然后将同样的数据放入表格中