当前位置：首页 → 问答吧 → 目录类邮件合并---不可思议

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

时间：2009-03-19

来源：互联网

目录类邮件合并的资料在网上几乎找不到，有些看似不可以做到的事情，只要你努力去做，有时是可以做得到的。感谢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 编辑 ]

附件

目录类邮件合并.rar(32.17 KB)

2009-3-19 10:31, 下载次数: 149

作者: lhm667788 发布时间: 2009-03-19

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

作者: sylun 发布时间: 2009-03-19

引用:

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

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