如何用Excel排版证书

用VBA来实现，在工作表添加一个Button和两个TextBox（用来填写打印范围），设计好打印样式，固定打印区域。对每个数据进行编号，在打印界面用VLOOKUP函数对编号进行链接。最后就是给Button添加VBA代码：Private Sub CommandButton1_Click()MsgBox "确定打印？", vbInformationDim B&  'B为每行数据的编号Dim sht As WorksheetSet sht = ActiveSheet'当前工作表名SF = ActiveSNameFor B = TextBValue To TextBValue  '打印范围SCells(1, 3) = B 'Cells(1,3)为自定义Activate   '刷新当前工作表ActiveSPrintOut From:=1, To:=1NextMsgBox "打印完成！", vbInformationEnd Sub

创建一个Word文件，制作证书模板按证书的尺寸，设置页面大小。本例中，证书大小为9*7厘米。接着，设置页面为横向。最后,按证书格式输入内容。启动邮件合并向导点菜单“邮件，在面板中选择“开始邮件合并”按钮，在下拉菜单中，选择“邮箱合并分步向导…”进行“邮件合并”把Excel中的数据合并到Word文档中邮件合并操作步骤：在奖状文档页面进行下述操作即可。执行“工具/信函与邮件/邮件合并”命令，打开“邮件合并”对话框（在窗口右侧）。选中“信函”单击“下一步”；选中“使用当前文档”单击“下一步”；选中“使用现有列表”单击“浏览”，找到数据表后单击“打开”，单击“下一步”；将光标定位于要合并数据的位置，单击“其他项目”，把“插入合并域”中的项目选定（如姓名）后单击“插入/关闭”；重复第5步，完成所有合并域的插入（如类别、等级）后，单击“下一步”；单击“预览信函”中的按钮即可浏览合并效果，再单击“下一步：完成合并”就可以进行打印；打印可以全部打印也可以指定打印，根据实际情况在“合并到打印机”进行设置。