首页 / 教程

wps生成询证函 | 用Excel邮件合并制作银行询证函

2022-09-22 19:49:00

1.如何用Excel邮件合并制作银行询证函

利用word邮件合并功能制作询证函方法

一、基础数据准备

1、根据券商、会计师、律师要求，设定标准客户询证函格式并调整页码及打印格式（参考附件格式）。

2、从erp帐务管理将客户往来帐目信息，期初余额、借方发生额、贷方发生额、期末余额等信息进行整理。（参考附件格式）。二、操作方法（word版本2010版）

1、点击word菜单邮件功能项，选择“开始邮件合并”功能，点击“目录”； 2、再点击“选择收件人”功能下“使用现在列表”，选择excel数据源，

再点击选择表格，确定。

3、点击插入合并域功能，将数据源中相关项至word指定位置。

4、点击word中数据项右键，选择“切换域代码”。为保证从excel读取的数据在word中显示“千分位”格式，在点击切换域代码后在最后增加数字转换参数“\# "#，###.00"”

公式完成后，再点击右键切换域代码，恢复至原来样式。 5、自动生成客户询证函

经过上述4步操作后，点击功能项“完成并合并”，编辑单个文档，默认值为“全部”，一般为快速生成，选择从__到__，生成的客户询证函将自动生成新word，点击保存，即可预览打印。

2.wps表格如何批量生成打印通知单

一、新建WPS文档如下： cuturl（' 通知同学家长：新区中心小学家长学校定于四月二十四日上午8:30在学校多功能教室举行一次讲座。

本次讲座主题为“怎样培养孩子良好的习惯”。主讲人为中心小学校长***。

请接到通知后准时参加听课。新区中心小学 2011.4.22'）二、新建WPS表格如下：三、进行邮件合并。

1、打开数据源。关闭WPS表格，打开通知文档，点击邮件合并工具栏的第一个按纽，选择“打开数据源”。

2、插入合并域。将光标移动到“同学家长”前，点击第三个按纽，选择“插入合并域”。

选择要插入的域名，即列标题，点击插入。文档变化如下： 3、查看合并数据。

点击第五个按纽，可以察看合并后的效果。点击工具栏上的“首记录、上一记录、下一记录、尾记录”按纽可以便捷查看各位同学家长将到收到的通知。

4、合并到打印机。点击倒数第二个按纽出现下面的对话框，您可以将所有通知一一打印。

如果某张通知遗失或纸张起皱可以有选择地补打。 5、省纸打印的办法。

由于本次通知内容较少，我们可以一张打印多份。单击倒数第四个按纽，将所有通知合并到新文档。

现在所有的通知被一个个分节符隔开以一页一页的形式合并到一个文档中了，我们用查找替换的办法将分节符全部替换为段落标记。稍作调整我们就可以在一页中打印两份或三份通知了。

6、其他按纽介绍。第二个：收件人按纽，可以有选择地合并文件，适用于从已有的表格中筛选出本次活动的目标收件人。

第六个：合并域底纹，顾名思义，可以给合并区域添加或删除底纹。倒数第三个：合并到不同新文档，可以将每位学生家长的通知单生成为文件。

3.如何excel中批量生成对账函

Private Sub CommandButton1_Click() Call SCXZHEnd SubSub SCXZH()On Error Resume Next t1 = Now() Dim MaxL, LstL As Long MaxL = Application.Rows.Count 'On Error Resume Next '捕捉错误 Dim wdDoc As Word.Document Dim FileModel As String Dim FileXZH As String FileModel = ThisWorkbook.Path & "\询证函模板.doc" '定义word文件路径，名字自己修改，我设定为2.doc Dim fso As Object, sfile As Object, blnExist As Boolean Dim Vendname, JDcom As String Dim Enddate Dim Reportdate Dim AR, AP Dim MyRange As Range t = 1 '索引号 Application.ScreenUpdating = False '关闭屏幕刷新 Set fso = CreateObject("Scripting.FileSystemObject") '创建FileSystemObject对象 Set wdapp = CreateObject("Word.Application") wdapp.Visible = True '可见 Set wdDoc = wdapp.Documents.Open(FileModel) 'Set wdDoc = GetObject(FileModel) '打开word询证函模板文件 Enddate = Format(ActiveSheet.Cells(2, "j"), "yyyy年m月d日"） Reportdate = Format(ActiveSheet.Cells(3, "j"), "yyyy-m-d") LstL = ActiveSheet.Cells(MaxL, 1).End(xlUp).Row With ActiveSheet JDcom = .Name For j = 2 To LstL Vendname = .Cells(j, 2) AR = Format(.Cells(j, 3), "#,##0.00") AP = Format(.Cells(j, 4), "#,##0.00") FileXZH = ThisWorkbook.Path & "\询证函明细\" & JDcom & "-询证函-" & .Cells(j, 2) & ".doc"Check_FileExist: blnExist = fso.FileExists(FileXZH) '判断文件是否存在 If blnExist Then fso.DeleteFile (FileXZH) End If With wdDoc endloc1 = .Bookmarks("VENDOR").End .Range(Start:=endloc1, End:=endloc1).InsertAfter Vendname endloc2 = .Bookmarks("EndDate").End .Range(Start:=endloc2, End:=endloc2).InsertAfter Enddate endloc3 = .Bookmarks("AR_JD").End .Range(Start:=endloc3, End:=endloc3).InsertAfter AR endloc4 = .Bookmarks("IndexNo").End .Range(Start:=endloc4, End:=endloc4).InsertAfter t endloc5 = .Bookmarks("AP_JD").End .Range(Start:=endloc5, End:=endloc5).InsertAfter AP endloc7 = .Bookmarks("JDCOM").End .Range(Start:=endloc7, End:=endloc7).InsertAfter JDcom endloc8 = .Bookmarks("ReportDate").End .Range(Start:=endloc8, End:=endloc8).InsertAfter Reportdate .SaveAs FileXZH '另存为word '清空写入数据 .Range(Start:=endloc8, End:=endloc8).Delete unit:=wdCharacter, Count:=Len(Reportdate) .Range(Start:=endloc7, End:=endloc7).Delete unit:=wdCharacter, Count:=Len(JDcom) .Range(Start:=endloc5, End:=endloc5).Delete unit:=wdCharacter, Count:=Len(AP) .Range(Start:=endloc3 + 1, End:=endloc3 + 1).Delete unit:=wdCharacter, Count:=Len(AR) .Range(Start:=endloc2 + 1, End:=endloc2 + 1).Delete unit:=wdCharacter, Count:=Len(Enddate) .Range(Start:=endloc1 + 1, End:=endloc1 + 1).Delete unit:=wdCharacter, Count:=Len(Vendname) .Range(Start:=endloc4, End:=endloc4).Delete unit:=wdCharacter, Count:=Len(t) End With t = t + 1 Next j End With wdDoc.Close False '关闭word Set wdDoc = Nothing Application.ScreenUpdating = True '开启屏幕刷新 t2 = Now() MsgBox "OK！" & "耗时" & DateDiff("S", t1, t2) & "秒！"End Sub具体看实例。