【老问题|新状况】邮件合并分类分页合并工资信息表

spearmint205

研究了N久，｛NextIf｝域后面再接一个｛If｝域可以解决留空的问题，但是最后一条记录丢失了。
看到的成功案例里用了｛Set｝｛NextIf｝｛If｝三个域，还不太明白｛Set｝域在里面起什么作用。

jacksonwen

事实上，有时单位所用的这些表格，也省不了那些墨，是吧。毕竟很多东西也得讲个规范，虽然似乎是有些形式主义，但却也是必须的，规范本身是很有必要的。所以，我还在期待可以解决，希望各位大神都思量思量，这也算是个课题吧，大家研究研究，解决了我们会是共同有进步了。

我在想，是不是还需要配合VBA来解决，像批量删除一些行的值，但在下VBA也不熟，掌握的VBA知识也是捉襟见肘，还请帮忙帮忙

jacksonwen

ywzx703 发表于 2014-2-26 16:27
输出效果？什么意思，你意思他没补空？这不是浪费墨吗？
我记得邮件应该实现不了吧

事实上，有时单位所用的这些表格，也省不了那些墨，是吧。毕竟很多东西也得讲个规范，虽然似乎是有些形式主义，但却也是必须的，规范本身是很有必要的。所以，我还在期待可以解决，希望各位大神都思量思量，这也算是个课题吧，大家研究研究，解决了我们会是共同有进步了。

我在想，是不是还需要配合VBA来解决，像批量删除一些行的值，但在下VBA也不熟，掌握的VBA知识也是捉襟见肘，还请帮忙帮忙

sinbai

为你着急啊 可惜我也是半瓶子不到 哎

jacksonwen

sinbai 发表于 2014-2-27 16:35
为你着急啊 可惜我也是半瓶子不到 哎

哈哈，为你的响应先感谢了，还是那话，帮忙吆喝一声，看看有没有可以解决问题的大神出现

jacksonwen

spearmint205 发表于 2014-2-26 17:41
研究了N久，｛NextIf｝域后面再接一个｛If｝域可以解决留空的问题，但是最后一条记录丢失了。
看到的成功案 ...

｛Set｝，顾名思义，我觉得是赋值的作用，而例子中赋值的变量的作用是中间值

spearmint205

基本把这个问题弄清了，整理如下，与君共勉：

1、对Excel中的数据进行排序，把相同分类的数据排放在一起。
2、添加辅助列，用If函数确定分页的位置。例如：=IF(E2=E3,"Y","N")，N即代表此条数据与后一条数据不同，此条数据以下分页。
3、在Word中设计表格母版表格，添加作为分类依据的基本域。
4、在表格第一行正常添加对应的基本域。
5、从第二行开始，第一栏使用｛Set｝、｛NextIf｝、｛If｝三个不同域；第二栏及其后使用｛If｝域。其作用如下：

①｛Set YesOrNo "｛MergeField Assistant｝"｝
说明：在第一条记录后添加标签「YesOrNo」，该标签的值为辅助列Assistant中的数据，如果该条记录与后一条相同，则为“Y”，反之则为“N”，代表此处需留空分页。

②｛NextIf ｛MergeField Assistant｝ = "Y"｝
说明：当辅助列Assistant中的数据为“Y”时，将下一条记录添加到此页，之后本页｛MergeField｝域中的数据为Excel表中的下一条。反之则下一条数据进下一分页。

③｛If YesOrNo = "Y" ｛MergeField ListOne｝ "" ｝
说明：判断标签处的数据是否是本页的最后一条，如果是“Y”，则不是本页最后一条，需填入下一条数据。如果是“N”，则该数据是本页最后一条，下一条数据应记入下一分页，此处表格留空。

从第二栏往后的同一行均为一条记录，重复填写③中的代码即可。

6、不使用预览功能，合并新文档查看结果。

spearmint205

补充一下，用目录型合并+VBA应该也可以实现，这个帖子「目录类型邮件合并指引」有详细说明。不过VBA那块太难啃，能用域实现的就不去弄那个了。

jacksonwen

spearmint205 发表于 2014-2-28 08:16
基本把这个问题弄清了，整理如下，与君共勉：

1、对Excel中的数据进行排序，把相同分类的数据排放在一起 ...

谢谢哥们，当时，我都放弃了，我会把你写的东西慢慢消化，现在学会，也不迟！