目录类邮件合并---不可思议

lhm667788

目录类邮件合并的资料在网上几乎找不到，有些看似不可以做到的事情，只要你努力去做，有时是可以做得到的。感谢sylun。
如数据源（表1 ），要想合并成（表2），看似不可能，经过几天的摸索，终于完成。
附件中有3个文件，主文档：“主文档.doc”,数据源：“数据源.xls”,合并后生成文档：“生成文档.doc”.
1、首先，将（表1）经过稍微的变化，把“设备名称”填满，如（表3）。
2、建立（打开）主文档文件（按Alt+F9键可看到域代码）
3、选择开始邮件合并--目录
4、选择收件人--使用现有列表--选择数据源文件--选择"样表$"。
5、完成并合并。
6、由于生成的文件表格中行是隔开的，所以在生成的文件中要运行如下VBA程序，生成如（表2）的表格。

Sub TableJoiner()
Dim oPara As Paragraph
For Each oPara In ActiveDocument.Paragraphs
With oPara.Range
If .Information(wdWithInTable) = True Then
With .Next
If .Information(wdWithInTable) = False Then
If .Text = vbCr Then .Delete
End If
End With
End If
End With
Next
End Sub

表1：

设备名称	数量	序号	技术指标	指标值
数控铣床1	2台	2.1	工作台尺寸	长≥ 900,宽≥400mm
		2.2	工作行程	X≥700mm Y≥400mm Z≥500mm
数控铣床2	4台	2.1	z轴手动行程	≥200mm
		2.2	主轴转速	60~4000rpm（无级变速）
		2.3	主轴孔锥度	BT40

表2：

	设备名称	数控铣床1
	数量	2台
序号	技术指标	指标值
2.1	工作台尺寸	长≥ 900,宽≥400mm
2.2	工作行程	X≥700mm Y≥400mm Z≥500mm

	设备名称	数控铣床2
	数量	4台
序号	技术指标	指标值
2.1	z轴手动行程	≥200mm
2.2	主轴转速	60~4000rpm（无级变速）
2.3	主轴孔锥度	BT40

表3：

设备名称	数量	序号	技术指标	指标值
数控铣床1	2台	2.1	工作台尺寸	长≥ 900,宽≥400mm
数控铣床1		2.2	工作行程	X≥700mm Y≥400mm Z≥500mm
数控铣床2	4台	2.1	z轴手动行程	≥200mm
数控铣床2		2.2	主轴转速	60~4000rpm（无级变速）
数控铣床2		2.3	主轴孔锥度	BT40

[ 本帖最后由 lhm667788 于 2009-3-19 11:12 编辑 ]

sylun

就楼主此例而言，代码及操作还可以简化，不必硬套。即：上面第1个步骤“填满”操作可免，这样主文档的域代码开头部分改为如下代码即可（原第2个Set域删除），这样读起来更简明。
QUOTE{SET Key {MERGEFIELD 设备名称}}"{IF{MERGEFIELD 设备名称}<> "" "{IF{MERGESEQ}> 1 {QUOTE 12}}

lhm667788

原帖由 sylun 于 2009-3-19 19:28 发表
就楼主此例而言，代码及操作还可以简化，不必硬套。即：上面第1个步骤“填满”操作可免，这样主文档的域代码开头部分改为如下代码即可（原第2个Set域删除），这样读起来更简明。
QUOTE{SET Key {MERGEFIELD 设备名称 ...

谢谢sylun指导，确实如你说，虽说是摸索了几天，还是一知半解，生搬硬套，更谈不上能灵活应用，请sylun老兄能把这部分域代码详细解释一下。还有，附件中生成的表行数多了就有些小问题，如何改进。附件中只有一个仪器，用BVA程序整理表格时，要用不少时间，我的数据源有4000多种仪器，要生成文档，起码上百个小时，怎样优化？谢谢sylun指导。

lhm667788

原帖由 sylun 于 2009-3-20 13:49 发表


楼上附件主文档中的表格属性是文字环绕的，应该取消。至于速度，如下附件主文档没有用Set域，只是根据设备名称字段是否为空作判断，并使用了段落格式的分页设置。楼主可看看其效果。
至于域代码的解释，可看看w ...

谢谢sylun,你附件中表格左上角单元格中的小黑方块是怎么输入的，好像去掉后就不能分页了，请sylun解释一下。
如果用NEXTIF可以目录合并吗？

[ 本帖最后由 lhm667788 于 2009-3-22 07:16 编辑 ]

sylun

原帖由 lhm667788 于 2009-3-20 00:34 发表

谢谢sylun指导，确实如你说，虽说是摸索了几天，还是一知半解，生搬硬套，更谈不上能灵活应用，请sylun老兄能把这部分域代码详细解释一下。还有，附件中生成的表行数多了就有些小问题，如何改进。附件中只有一个仪 ...

楼上附件主文档中的表格属性是文字环绕的，应该取消。至于速度，如下附件主文档没有用Set域，只是根据设备名称字段是否为空作判断，并使用了段落格式的分页设置。楼主可看看其效果。
至于域代码的解释，可看看word帮助文件的相关条目，不清楚时请再具体提出。
主文档.rar (12.01 KB, 下载次数: 400)

2009-3-20 13:49 上传

点击文件名下载附件

kxpc

原帖由 buswalke 于 2009-3-20 16:24 发表
此贴定要收藏之！

此帖绝对好帖、精品帖，一定要收藏！！！！！！！！

sylun

原帖由 lhm667788 于 2009-3-22 07:14 发表

谢谢sylun,你附件中表格左上角单元格中的小黑方块是怎么输入的，好像去掉后就不能分页了，请sylun解释一下。
如果用NEXTIF可以目录合并吗？

前面已提到过，是使用段落格式的分页设置。楼主可在段落格式对话框查看一下。
至于nextif域，它主要在合并时是使其后的合并域引用后一条数据记录。至于其详细用法说明，楼主可查看一下帮助文件。可不可以用于目录合并，要看实际情况。

lhm667788

原帖由 sylun 于 2009-3-22 21:12 发表


前面已提到过，是使用段落格式的分页设置。楼主可在段落格式对话框查看一下。
至于nextif域，它主要在合并时是使其后的合并域引用后一条数据记录。至于其详细用法说明，楼主可查看一下帮助文件。可不可以用于目 ...

非常非常感谢尊敬的sylun的指导.

dsp5000

好，实例研究。

飞云楼主

这么好的贴，下载研究下。