Cara Menyimpan Hasil Mail Merge Word ke PDF secara Otomatis dengan Kode VBA

Jika di mail merge kita punya 100 data, maka biasanya akan disimpan ke dalam satu file pdf ( 1 PDF 100 halaman) atau kita harus manual klik simpan ke pdf satu persatu (100 file PDF, masing masing 1 halaman). 

Cara manual tentu akan sangat melelahkan. Misalnya nih, Mimin disuruh membuat sertifikat kelulusan dengan 300 peseta. Tentu akan ada 300 file PDF sertifikat. Jika pakai cara manual, maka Mimin harus klik print to pdf satu persatu, lalu memberi nama sesuai nama peserta satu persatu.. haaa.. bayangkan saja sudah capek..

Nah! Karena Mimin orangnya malas, jadi Mimin pakai cara otomatis, yakni pakai kode VBA di word, agar hasil mail merge bisa di ekspor ke pdf secara terpisah lalu diberi nama file sesuai dengan nama peserta secara otomatis. 

Caranya.

1. Copy kode berikut.

Sub ExportMailMergeToPDF() Dim i As Integer Dim folderPath As String With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Pilih folder penyimpanan" .Show If .SelectedItems.Count > 0 Then folderPath = .SelectedItems(1) & "\" Else MsgBox "Tidak ada folder yang dipilih. Proses dieksekusi dibatalkan." Exit Sub End If End With For i = 1 To ActiveDocument.MailMerge.DataSource.RecordCount With ActiveDocument .MailMerge.DataSource.ActiveRecord = i .ExportAsFixedFormat OutputFileName:= _ folderPath & .MailMerge.DataSource.DataFields("Asal_Instansi") & "_" & _ .MailMerge.DataSource.DataFields("Nama") & ".pdf", _ ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, Range:=wdExportAllDocument End With Next End Sub

Catatan:

Rubah fields "NAMA" dan "Kelas" dengan field yang ingin dicantumkan pada nama file PDF. 

2. Buka file sertifikat yang telah di mail merge.

3. Tekan ALT + F11 

4. Klik insert, lalu pilih module

5. Paste kan kode di atas (Ctrl+V) 

6. Lalu klik tombol Run 

Dan wola.. Mimin sudah punya 300 file sertifikat dalam bentuk PDF secara terpisah dan file sudah direname sesuai dengan nama peserta. 

Sertifikat siap dibagikan. 

Berikut video tutorialnya

Selamat mencoba.