Издатель VBA MailMerge - Преобразование в PDF - PullRequest
Новая
       72

Издатель VBA MailMerge - Преобразование в PDF

1 голос
/ 23 апреля 2020

У меня есть документ Publisher с записями MailMerge. Моя цель - преобразовать каждую страницу с каждой записью в отдельный документ PDF.

Я написал этот код. Он генерирует PDF-файлы с правильными именами, но по какой-то причине PDF-файлы содержат только вторую запись из MailMerge. 

Sub MailMerge()

Dim Lot As MailMergeDataField
Dim Price As MailMergeDataField
Dim Street As MailMergeDataField
Dim i As Long

Dim MainDoc As Document
Set MainDoc = ActiveDocument

With MainDoc
    For i = 1 To .MailMerge.DataSource.RecordCount
        With .MailMerge
            .SuppressBlankLines = True
             With .DataSource
                .FirstRecord = i
                .LastRecord = i
                .ActiveRecord = i
                Set Lot = .DataFields.Item("Lot")
                Set Price = .DataFields.Item("Price")
                Set Street = .DataFields.Item("Street")
                ThisDocument.ExportAsFixedFormat pbFixedFormatTypePDF, Lot.Value & "-" & Street.Value & ".pdf"
            End With
            .Execute Pause:=False, Destination:=pbMergeToNewPublication
        End With
    Next i
End With

End Sub

Я думаю, что это нужно немного изменить, и все будет работать нормально, но я не могу выяснить, решение.

...