Menyimpan dokumen Mail Merge individual dalam bentuk PDF pada Microsoft Word 2021
Option Explicit Const FOLDER_SAVED As String = "D:\My Adobe Premiere\YT RS\KONTEN\Sertifikat\Sertifikat-" Const SOURCE_FILE_PATH As String = "D:\My Adobe Premiere\YT RS\KONTEN\Sertifikat\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 '// if you want to specify your data, insert a WHERE clause in the SQL statement .OpenDataSource Name:=SOURCE_FILE_PATH, sqlstatement:="SELECT * FROM [Sheet1$]" totalRecord = .DataSource.RecordCount For recordNumber = 1 To totalRecord With .DataSource .ActiveRecord = recordNumber .FirstRecord = recordNumber .LastRecord = recordNumber End With .Destination = wdSendToNewDocument .Execute Fa
Comments
Post a Comment