У нас вы можете посмотреть бесплатно Perbanyak Sertifikat dan SAVE PDF OTOMATIS или скачать в максимальном доступном качестве, которое было загружено на ютуб. Для скачивания выберите вариант из формы ниже:
Если кнопки скачивания не
загрузились
НАЖМИТЕ ЗДЕСЬ или обновите страницу
Если возникают проблемы со скачиванием, пожалуйста напишите в поддержку по адресу внизу
страницы.
Спасибо за использование сервиса savevideohd.ru
di atas adalah vidio tutorial tentang cara memperbanyak sertifikat kemudian menyimpannya secara otomatis menggunakan nama yang ada di sertifikat. semoga bermanfaat Silakan di copy Option Explicit Const FOLDER_SAVED As String = "C:\Users\ACER\Documents\New folder (2)\Certificate" Const SOURCE_FILE_PATH As String = "C:\Users\ACER\Documents\New folder (2)\database.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 False Set TargetDoc = ActiveDocument TargetDoc.SaveAs2 FOLDER_SAVED & .DataSource.DataFields("NAMA").Value & ".docx", wdFormatDocumentDefault TargetDoc.ExportAsFixedFormat FOLDER_SAVED & .DataSource.DataFields("NAMA").Value & ".pdf", exportformat:=wdExportFormatPDF TargetDoc.Close False Set TargetDoc = Nothing Next recordNumber End With On Error Resume Next Kill FOLDER_SAVED & "*.docx" On Error GoTo 0 Set MainDoc = Nothing End Sub 'adopted from https://learndataanalysis.org/automat... 'with additional delete docx file