CARA EKSPORT FILE PDF SECARA BERSAMAAN DARI MAIL-MERGE

Untuk memproses eksport file PDF  dari MAIL-MERGE:

1. Pastikan sudah tahu cara buat mail-mergenya yang dari format Excel ke format Word Doc
2. Buka format Word Doc yang sudah digunakan untuk MAIL-MERGE
3. Tekan: ALT+F11
4. KLIK kanan pada PROJECT
5. Insert > Module
6. Masukan Coding berikut:

=============================== (Batas/jangan dicopy)

Option Explicit

Const FOLDER_SAVED As String = <“Salin Link Folder Direktori untuk penyimpan – “>
Const SOURCE_FILE_PATH As String = <“Salin Link Folder Direktori File.xlsx“>

Sub TestRun()
Dim MainDoc As Document, TargetDoc As Document
Dim dbPath As String
Dim recordNumber As Long, totalRecord As Long

Set MainDoc = ActiveDocument
With MainDoc.MailMerge

‘// if you want to specify your data, insert a WHERE clause in the SQL statement
.OpenDataSource Name:=SOURCE_FILE_PATH, sqlstatement:=”SELECT * FROM [SCORE-TOEFL$]”

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(“Nama_Peserta“).Value & “.docx”, wdFormatDocumentDefault
TargetDoc.ExportAsFixedFormat FOLDER_SAVED & .DataSource.DataFields(“Nama_Peserta“).Value & “.pdf”, exportformat:=wdExportFormatPDF
TargetDoc.Close False
Set TargetDoc = Nothing
Next recordNumber

End With
On Error Resume Next
Kill FOLDER_SAVED & ” .DOC”
On Error GoTo 0

Set MainDoc = Nothing
End Sub

============================== (Batas/jangan dicopy)