Kamis, 03 Oktober 2024

file dengan ekstensi .docx, .doc, dan .rtf sekaligus ke pdf


Jika Anda ingin mengonversi banyak file extension doc, docx, rtf ke PDF sekaligus menggunakan makro di Microsoft Word, Anda bisa menggunakan kode VBA. Berikut adalah langkah-langkahnya:

  1. Buka Microsoft Word dan pastikan tab “Developer” sudah aktif. Jika belum, aktifkan melalui File > Options > Customize Ribbon dan centang “Developer”.

  2. Buka Editor VBA dengan menekan Alt + F11.

  3. Buat Modul Baru:

    • Klik pada proyek “Normal”.
    • Pilih Insert > Module.
  4. Tempelkan Kode Makro berikut ke dalam modul:

Sub BatchConvertDocToPDF()
    Dim objWord As Object
    Dim objDoc As Object
    Dim strFolder As String
    Dim strFile As String
    Dim strDocName As String
    Dim strPDFName As String

    ' Set the folder path
    strFolder = "C:\Path\To\Your\Word\Files\"

    ' Create a new Word application object
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = False

    ' Loop through all Word files in the folder
    strFile = Dir(strFolder & "*.docx")
    Do While strFile <> ""
        ' Open the Word document
        Set objDoc = objWord.Documents.Open(strFolder & strFile)
        
        ' Set the PDF file name
        strDocName = Left(strFile, InStrRev(strFile, ".") - 1)
        strPDFName = strFolder & strDocName & ".pdf"
        
        ' Export the document as PDF
        objDoc.ExportAsFixedFormat _
            OutputFileName:=strPDFName, _
            ExportFormat:=wdExportFormatPDF, _
            OpenAfterExport:=False, _
            OptimizeFor:=wdExportOptimizeForPrint, _
            Range:=wdExportAllDocument, _
            Item:=wdExportDocumentContent
        
        ' Close the Word document
        objDoc.Close False
        
        ' Get the next file
        strFile = Dir
    Loop

    ' Repeat for .doc files
    strFile = Dir(strFolder & "*.doc")
    Do While strFile <> ""
        ' Open the Word document
        Set objDoc = objWord.Documents.Open(strFolder & strFile)
        
        ' Set the PDF file name
        strDocName = Left(strFile, InStrRev(strFile, ".") - 1)
        strPDFName = strFolder & strDocName & ".pdf"
        
        ' Export the document as PDF
        objDoc.ExportAsFixedFormat _
            OutputFileName:=strPDFName, _
            ExportFormat:=wdExportFormatPDF, _
            OpenAfterExport:=False, _
            OptimizeFor:=wdExportOptimizeForPrint, _
            Range:=wdExportAllDocument, _
            Item:=wdExportDocumentContent
        
        ' Close the Word document
        objDoc.Close False
        
        ' Get the next file
        strFile = Dir
    Loop

    ' Repeat for .rtf files
    strFile = Dir(strFolder & "*.rtf")
    Do While strFile <> ""
        ' Open the Word document
        Set objDoc = objWord.Documents.Open(strFolder & strFile)
        
        ' Set the PDF file name
        strDocName = Left(strFile, InStrRev(strFile, ".") - 1)
        strPDFName = strFolder & strDocName & ".pdf"
        
        ' Export the document as PDF
        objDoc.ExportAsFixedFormat _
            OutputFileName:=strPDFName, _
            ExportFormat:=wdExportFormatPDF, _
            OpenAfterExport:=False, _
            OptimizeFor:=wdExportOptimizeForPrint, _
            Range:=wdExportAllDocument, _
            Item:=wdExportDocumentContent
        
        ' Close the Word document
        objDoc.Close False
        
        ' Get the next file
        strFile = Dir
    Loop

    ' Quit Word application
    objWord.Quit

    ' Clean up
    Set objDoc = Nothing
    Set objWord = Nothing

    MsgBox "All files have been converted to PDF.", vbInformation
End Sub
  1. Jalankan Makro dengan menekan F5 atau melalui menu Run > Run Sub/UserForm.

Pastikan untuk mengganti C:\Path\To\Your\Word\Files\ dengan path folder yang berisi file Word Anda. Makro ini akan mengonversi semua file .docx, doc, dan rtf dalam folder tersebut menjadi PDF dan menyimpannya di lokasi yang sama.


Kamis, 13 Juni 2024

IIS

Cara reset ke default ACL IIS dari cmd

buka cmd dengan administrator

gunakan perintah di cmd: icacls "C:\path\to\your\folder" /reset /t /c /l

  • /reset: Mereset ACL ke default.
  • /t: Menerapkan perintah ke semua subfolder dan file dalam folder yang ditentukan.
  • /c: Melanjutkan operasi bahkan jika terjadi kesalahan.
  • /l: Menerapkan perintah ke tautan simbolik yang ditunjuk oleh direktori yang diberikan
  • Fakultas Hukum

    Semester Ganjil 2024

    1. Hukum Perbankan

    2. Etika Profesi Hukum

    3. Hukum Ketatanegaraan

    4. Hukum Ketenagakerjaan


    Semester Genap 2024

    1. HKI (Senin)

    2. Peradilan Agama (Selasa)

    3. Hukum Dagang (Kamis)

    4. Peradilan Pidana Anak (Jumat)