请教：如何引用邮件某合并域当前记录的值

henterwu · 发表于 2004-5-25 10:22

同上。

henterwu · 发表于 2004-5-25 19:34

无法引用吗？

请各位指点一下。

守柔 · 发表于 2004-5-26 05:42

不知是否是这个意思:

Sub test() Set myMerge = ActiveDocument.MailMerge If myMerge.State = wdMainAndSourceAndHeader Or myMerge.State = wdMainAndDataSource Then With myMerge.DataSource .FirstRecord = 1 .LastRecord = 10 For i = .FirstRecord To .LastRecord .ActiveRecord = i MsgBox .DataFields(1).Value & .DataFields(2).Value Next End With End If 'With myMerge ' .Destination = wdSendToNewDocument ' .Execute 'End With

End Sub

henterwu · 发表于 2004-5-26 08:52

谢谢，让我试试。

henterwu · 发表于 2004-5-26 09:01

我是2k版的，没有DataFields属性，只有Fields属性，且不能有Value属性，其实我就是在这儿被绊倒的。

henterwu · 发表于 2004-5-26 13:33

守柔老师，谢谢！你是正确的。

[此贴子已经被作者于2004-5-26 15:58:41编辑过]

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