有关邮件合并中的一个难题

Hoer · 发表于 2005-5-18 21:01

我现在把DataOption1:=xlSortNormal, DataOption2:=xlSortNormal这句话改为了注明语句，程序基本可以运行，不过还有两点。

1、每个表格有十行，最后一行必须为空行，即数据只对填到第2至9行；

2、运行速度有点慢～～

守柔 · 发表于 2005-5-18 21:10

第一个问题,你可以在"考生名单"模板中,录入"考生名单",按下F3,会自动出现一个表格,你适当修改一下,加入一行,全选(CTRL+A),注意不是全选表格,此处必须加入最后一个段落标记,在插入/自动图文集/自动图文集:查找范围为考生名单模板,仍以此名字覆盖原来的自动图文集,你试着调整一下上下页边距,使之每页正好能容纳四个表格,如果你觉得有问题,我来处理.

第二个问题,由于你的要求比较特殊,加上如果你的电脑配制较差,而数据源又较大时,运行速度肯定不快.不过你的附件中的邮件合并,我的电脑打开时,WORD差不多要死机了.

Hoer · 发表于 2005-5-18 21:23

对于第一个问题，加入一行后会不会共有十一行，而我每个表只需十行即可～

Hoer · 发表于 2005-5-18 21:28

我试了一下，搞不好，麻烦守版主～～:D

Hoer · 发表于 2005-5-18 22:04

突然又发现了小问题，数据上有点突出，少了一行数据：

1906409许霞晨文化中学女

Hoer · 发表于 2005-5-18 22:16

呵呵，我搞成功了，只要把If N = 0 Or i <> i.Offset(-1, 0) Or i.Offset(, -1) <> i.Offset(-1, -1) Or N > 9 中的N > 9改成n>7即可，再次感谢版主的朋友们的热心帮助～

		自动登录	找回密码
密码			免费注册