Автоматизируйте MailMerge для сохранения в виде отдельных файлов PDF. Ошибка при попытке открыть сохраненные файлы PDF - PullRequest
Новая
       79

Автоматизируйте MailMerge для сохранения в виде отдельных файлов PDF. Ошибка при попытке открыть сохраненные файлы PDF

0 голосов
/ 05 августа 2020

не уверен, что не так, но я получаю сообщение об ошибке, когда пытаюсь открыть файлы pdf. Он говорит, что не в правильном формате. Вот код, который я пробовал .. 

Sub MailMerge_Automation()

Dim MainDoc As Document, TargetDoc As Document
Dim recordNumber As Long, totalRecord As Long

Set MainDoc = ThisDocument
With MainDoc.MailMerge

    .OpenDataSource Name:=SOURCE_FILE_PATH, SQLStatement:="SELECT *FROM[Sheet 1$]"
    totalRecord = .DataSource.RecordCount
    
    For recordNumber = 1 To totalRecord
    
    With .DataSource
        .ActiveRecord = recordNumber
        .FirstRecord = recordNumber
        .LastRecord = recordNumber
    End With
    
    
    .Destination = wdSendToNewDocument
    .Execute False
    
    Set TargetDoc = ActiveDocument
        TargetDoc.SaveAs2 FOLDER_SAVED & .DataSource.DataFields("Name").Value & ".docx", wdFormatDocumentDefault
        TargetDoc.SaveAs2 FOLDER_SAVED & .DataSource.DataFields("Name").Value & ".pdf"
        TargetDoc.Close False
        
        

    Set TargetDoc = Nothing
    
    Next recordNumber
    
End With

Set MainDoc = Nothing

End Sub
...