Membuat banyak sertifikat biasa dilakukan di word dengan menggunakan mail merge, namun di mail merge kita tidak bisa membuat banyak sertifikat yang tersimpan jadi file masing masing.
Dengan menggunakan fitur Visual Basic pada menu developer kita akan dapat membuat banyak sertifikat di word menjadi file pdf masing-masing dengan mail merge.
00:00 intro
Desain Sertifikat
Pengaturan Mail merge
Pengaturan Script Visual Basic
Generate banyak sertifikat jadi masing masing file pdf
Script VBA mail merge jadi file pdf dapat di copy dari teks berikut:
dimulai setelah dan sampai tanda ...
Option Explicit
Const SIMPAN_DI As String = "D:\Guru Cendekia\2023\02 Februari\Artikel Populer\sertifikat"
Const SUMBER_DARI As String = "D:\Guru Cendekia\2023\02 Februari\Artikel Populer\data sertifikat.xlsx"
Sub MailMergeToIndPDF()
Dim MainDoc As Document, TargetDoc As Document
Dim dbPath As String
Dim recordNumber As Long, totalRecord As Long
Set MainDoc = ActiveDocument
With MainDoc.MailMerge
.OpenDataSource Name:=SUMBER_DARI, sqlstatement:="SELECT * FROM [Sheet1$]"
totalRecord = .DataSource.RecordCount
For recordNumber = 1 To totalRecord
With .DataSource
.ActiveRecord = recordNumber
.FirstRecord = recordNumber
.LastRecord = recordNumber
End With
On Error Resume Next
.Destination = wdSendToNewDocument
.Execute False
Set TargetDoc = ActiveDocument
TargetDoc.ExportAsFixedFormat SIMPAN_DI & .DataSource.DataFields("NAMA").Value & ".pdf", exportformat:=wdExportFormatPDF
TargetDoc.Close False
Set TargetDoc = Nothing
Next recordNumber
End With
On Error Resume Next
Kill SIMPAN_DI & "*.docx"
On Error GoTo 0
Set MainDoc = Nothing
End Sub
#sertifikat #mailmerge #word #mailmergepdf
Негізгі бет MEMBUAT BANYAK SERTIFIKAT DI WORD JADI FDF MASING MASING
Пікірлер: 29