2014-01-10 33 views
0

谢谢大家提前任何帮助,您可以提供给我,我期待从中获得出版商执行邮件合并。我已经联系在一起的一切,把一切都看,我想但是它的样子......发布邮件合并为PDF和另存为合并后场

我想要做的是,当我执行邮件合并,我想发布商从节约每一个人记录的副本该数据库作为基于邮件合并的一个字段的特定文件。

我会尽力澄清......

一个邮件合并域是ClientAccountNumber我想合并到发行文件的副本放到c节省:\邮件合并为PDF,包括2014年。

所以这个文件(S),例如看起来像

C:\邮件合并\ 123456 - 2014.pdf C:\邮件合并\ 123457 - 2014.pdf等等

有谁知道这是否可能,如果有的话,我怎么样d去了解它?

问候

理查德

所以,我已经取得了一些进展有了这个,我已经创建了下面的宏我没有写一个循环到它,但是我觉得我越来越近......

但是现在什么是出口是FileNameTemp - 2011,而不是实际的客户参考和2011年????

我决心破解这个您的帮助或想法,将大规模感激!

Sub MailMerge() 
' 
' Macro1 Macro 

Dim TempDocCreate 
Dim FileNameTemp As MailMergeDataField 


Set FileNameTemp = Application.ActiveDocument.MailMerge.DataSource.DataFields.Item("Box 22 Rcp Acct No") 


With ActiveDocument.MailMerge.DataSource 
    Application.ActiveDocument.ExportAsFixedFormat pbFixedFormatTypePDF, Filename:= _ 
    "L:\Operations Database\Projects\1042\PublisherPDF\2011 Merge\" & "FileNameTemp" & " - 2011" & ".pdf" 


End With 

末次

您的帮助一如既往的感谢!

理查德

回答

0

我现在不能确认这一权利,但我认为你需要更多的东西是这样的:

昏暗FileNameTemp作为字符串

设置FileNameTemp = ActiveDocument.MailMerge.DataSource.DataFields .Item( “盒子22 Rcp的科目否”)。价值

'不要把 “” 周围FileNameTemp

ActiveDocument.ExportAsFixedForm在pbFixedFormatTypePDF,文件名:= _ “L:\操作数据库\项目\ 1042 \ PublisherPDF \ 2011合并\” & FileNameTemp & “ - 2011” & “.PDF”

什么我不知道是怎么你的代码是为每个数据源记录生成一个输出PDF。