Mudahnya Perbanyak Sertifikat dan juga Simpan ke PDF secara Otomatis

Simpan Sobat Paud Viral Video like also basin.


Untuk menampilkan visual traditional silakan bs tekan Alt + Fn + F11 atau Alt + F11 secara bersama-sama.

Silakan replica paste kode yg digunakan untuk modul berikut

Option Verbalize

Const FOLDER_SAVED As String = “C:CustomersACERPaperworkFresh folder (2)Certificate”
Const SOURCE_FILE_PATH As String = “C:CustomersACERPaperworkFresh folder (2)database.xlsx”

Sub MailMergeToIndPDF()
Dusky MainDoc As Doc, TargetDoc As Doc
Dusky dbPath As String
Dusky recordNumber As Long, totalRecord As Long

Space MainDoc = ActiveDocument
With MainDoc.MailMerge

‘// will delight inside to youre’ll want to to possibly well possibly possibly like to specify your data, insert a WHERE clause inside a SQL observation
.OpenDataSource Identify:=SOURCE_FILE_PATH, sqlstatement:=”SELECT FROM [Sheet1$]”

totalRecord = .DataSource.RecordCount

For recordNumber = 1 To totalRecord

With .DataSource
.ActiveRecord = recordNumber
.FirstRecord = recordNumber
.LastRecord = recordNumber
Give up With

.Destination = wdSendToNewDocument
.Enact False

Space TargetDoc = ActiveDocument

TargetDoc.SaveAs2 FOLDER_SAVED & .DataSource.DataFields(“NAMA”).Tag & “.docx”, wdFormatDocumentDefault
TargetDoc.ExportAsFixedFormat FOLDER_SAVED & .DataSource.DataFields(“NAMA”).Tag & “.pdf”, exportformat:=wdExportFormatPDF
TargetDoc.Shut False
Space TargetDoc = Nothing
Subsequent recordNumber
Give up With
On Error Resume Subsequent
Raze FOLDER_SAVED & “*.docx”
On Error GoTo 0
Space MainDoc = Nothing
Give up Sub
‘adopted from https://learndataanalysis.org/automat…
‘with extra delete docx file

Semoga sukses Derive Video become infected for also cruise.

Jangan lupa delight inside dan juga Share video ini untuk mendapatkan Informasi Viral & Terbaru
Selengkapnya : https://www.youtube.com/watch?v=hXuh3ckSVmY