邮件合并空行问题

wangtx218 · 发表于 2006-10-26 19:50

A37,B34为何重复,不是空行,请大师帮改下,先谢了!!!

vVgSN24M.rar (22.25 KB, 下载次数: 17)

[此贴子已经被作者于2006-10-26 19:51:18编辑过]

c81 · 发表于 2006-10-26 20:11

用这个来做主文档

《nextrecord》放在行首。

za0PxEcs.rar (7.94 KB, 下载次数: 10)

[此贴子已经被作者于2006-10-26 22:57:59编辑过]

wangtx218 · 发表于 2006-10-26 20:25

谢谢,第１组与第２组不能连打，每组最后一页下面是空行

c81 · 发表于 2006-10-26 20:47

按我二楼给的普通合并之前按下图查询一下，这个方法烦琐吗？

wangtx218 · 发表于 2006-10-26 20:50

谢谢.我有10000多人,分几百组

c81 · 发表于 2006-10-27 01:28

好象楼主的结果重复的部分用一个小VBA就可解决之。

我的VBA太烂，望守版主或哪位高僧指正一下，大致就是这样的思路

Sub kk()
Dim tb As Table
For Each tb In ActiveDocument.Tables
For i = 2 To 15 '因每表15行
   If Len(tb.Cell(n, 1).Range) = Len(tb.Cell(n + 1, 1)) Then '如果发现相邻两行第一列单元内相等，然后
    For a = n + 1 To 15 '发现处以下的内容全删除
    tb.Rows(n + 1).Delete
    Next
   End If
Next
End Sub

可能是删除多余行，不是清空，所以版面有改变。

[此贴子已经被作者于2006-10-27 12:55:14编辑过]

wangtx218 · 发表于 2006-10-27 05:17

楼上的朋友,WORD我不熟,请帮写一下,急用!

再次感谢!!!

守柔 · 发表于 2006-10-27 06:51

数据源中的TJ=0是何意？此列的目的是什么？

wangtx218 · 发表于 2006-10-27 08:44

TJ=0是每组最后一个数据,下面要换页(组),先谢了!

守柔 · 发表于 2006-10-28 08:10

这个问题，我也无计可施，除了使用VBA外，使WORD的NEXTIF、SKIPIF域均不能直接完成楼主的要求。

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