2014-01-10 2 views
0

Я благодарю вас за любую помощь, которую вы можете мне предоставить. Я ищу, чтобы выполнить слияние электронной почты от доступа к издателю. Я связал все вместе и получил все, чтобы посмотреть, как я хочу, чтобы он выглядел ...Издатель Mail Merge to PDF и Save as Merged Field

Что я хочу сделать, когда я выполняю слияние почты, я бы хотел, чтобы издатель сохранял копию каждой отдельной записи из база данных как конкретный файл на основе одного поля слияния.

Я попытаюсь прояснить ...

Одно из полей слияния почты является ClientAccountNumber Я хотел бы слияние, чтобы сохранить копию файла издателя в C: \ MailMerge как PDF, включая 2014 год.

Так что этот файл (ы), например, будет выглядеть

C: \ MailMerge \ 123456 - 2014.pdf C: \ MailMerge \ 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 

End Sub

Ваша помощь как всегда ценится!

Ричард

ответ

0

я не могу проверить это прямо сейчас, но я думаю, что нужно что-то более, как это:

Dim FileNameTemp As String

Set FileNameTemp = ActiveDocument.MailMerge.DataSource.DataFields .Item ("Box 22 Rcp Acct нет"). Value

"не ставить "" вокруг FileNameTemp

ActiveDocument.ExportAsFixedForm на pbFixedFormatTypePDF, Имя файла: = _ "L: \ Database Операции \ Projects \ 1042 \ PublisherPDF \ 2011 Объединить \" & FileNameTemp & "- 2011" & ".pdf"

То, что я не могу сказать, как ваш код создавая один выходной PDF для каждой записи источника данных.