WORD调用EXCEL打印证书或支票，金额或日期自动变大写

  我们经常会批量制作证书、支票或邮件，它们的共同特点是格式一样、内容有异，支票的金额或日期必须用大写，反复地书写或录入电脑都显得繁琐。

其实用点小技巧，EXCEL 可将金额或日期准确地变成大写，再用WORD的“邮件合并”功能调用EXCEL数据源，能自动批量印制证书、支票、邮件或柬等。

方法如下：

一、用EXCEL准备数据源(获奖清单.xls)：file:///d:/Myfile:///d:/My

（声明：表中的样板数据随意设定，若与某人或某单位同名，纯属巧合）

技巧：EXCEL表格中红字内容不是手工输入的，它们是用公式自动将其左边的日期或奖金自动转换成的大写。

1.落款日期单元格“H2”的公式如下，其下方单元格自动填充即可。

=TEXT(LEFT(RIGHT(YEAR(F2),4)),"[DBNum1]")&TEXT(LEFT(RIGHT(YEAR(F2),3)),"[DBNum1]")&TEXT(LEFT(RIGHT(YEAR(F2),2)),"[DBNum1]")&TEXT(LEFT(RIGHT(YEAR(F2),1)),"[DBNum1]")&"年" & IF(MONTH(F2)<10, TEXT(RIGHT(MONTH(F2),2),"[DBNum1]"),IF(MONTH(F2)=10, "十","十" &TEXT(LEFT(RIGHT(MONTH(F2),1)),"[DBNum1]")))&"月"&
IF(DAY(F2)<10,TEXT(RIGHT(DAY(F2),2),"[DBNum1]"),IF(DAY(F2)=10,"十", IF(DAY(F2)<20,"十" &TEXT(LEFT(RIGHT(DAY(F2),1)),"[DBNum1]"), TEXT(RIGHT(DAY(F2),2),"[DBNum1]"))))&"日"

（注：“日期转大写公式”花了YH半天时间编写调试，诸位可复制使用，谢绝转载）

2.奖金大写单元格“I2”的公式如下，其下方单元格自动填充即可。

=IF(ROUND(G2,2)<0,"无效数值",IF(ROUND(G2,2)=0,"零",IF(ROUND(G2,2)<1,
"",TEXT(INT(ROUND(G2,2)),"[dbnum2]")&"元")&IF(INT(ROUND(G2,2)*10)-INT(ROUND(G2,2))*10=0,IF(INT(ROUND(G2,2))*(INT(ROUND(G2,2)*100)-INT(ROUND(G2,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(G2,2)*10)-INT(ROUND(G2,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(G2,2)*100)-INT(ROUND(G2,2)*10)*10)=0,"整",TEXT((INT(ROUND(G2,2)*100)-INT(ROUND(G2,2)*10)*10),"[dbnum2]")&"分")))

二、用WORD的“邮件合并”功能调用EXCEL数据源

（注：荣誉证书一般不附奖金，本文是同时为支票的“大写金额”作范例，有意添加的）

技巧：WORD文档中“双尖括号”及其内容都不是手工输入，而是用WORD的“邮件合并”功能调用EXCEL数据源，
“邮件合并”调出办法：击菜单“视图”→“工具栏”→“邮件合并”，将出现第3行“邮件合并工具栏”

1.击“邮件合并工具栏”的第2个图标 (打开数据源)，在“打开对话框”里选择上面准备的文件“获奖清单.xls”,再选“Sheet1”工作表。

2.击“邮件合并工具栏”的第6个图标 (打开域)，依次选&laquo;学校&raquo;&laquo;姓名&raquo;&laquo;科目&raquo;《&laquo;题目&raquo;》&laquo;奖项&raquo;&laquo;落款日期&raquo;&laquo;奖金大写&raquo;&laquo;奖金&raquo;等，用WORD的编辑功能录入其它内容，编辑调试成需要的打印格式。

3.击“邮件合并工具栏”的图标 （查看邮件合并数据），调用的“域”将自动显示“定位记录” 的数据源（第1条记录是EXCEL的第2行数据，因为第1行是标题)。例如：第3条记录合并数据后如下图。你可通过“定位记录”左右的“三角按钮”显示其它记录，还可击“打印按钮”将显示的内容打印出来：

当然，可在第2步“打开域”后，先“查看邮件合并数据”，然后再录入其它内容，这样录入及编辑会更直观些。

4.击“邮件合并工具栏”的按钮 (合并到打印机)，将数据源的数据全部或部分自动地按上面WORD的格式合并到打印机，即可实现自动批量打印。此后，只要在EXCEL增改记录即可，再打开上述WORD文档时，会自动调用数据源，轻松随意印制。

三、类似地用WORD的“邮件合并”功能调用EXCEL数据源，简单编辑一下，便能批量印制支票、邮件或请柬等，简单实用，准确省力。

[img][/img]

不错~
支持楼主一下~~

顶