Cara Save Word ke PDF Per Halaman Sekaligus

Tutorial ini membahas cara memisahkan halaman di Word menjadi beberapa file PDF dengan menggunakan VBA.

Panduan ini untuk Microsoft Word 2007, 2010, 2013, 2016, 2019, 2021, 365.

Microsoft Word sendiri sudah memiliki fitur untuk menyimpan halaman tertentu saja tanpa menggunakan VBA. Namun, cara ini tidak cocok bila ingin split halaman dalam jumlah banyak, karena tidak bisa dilakukan sekaligus dalam satu kali saja.

Sedangkan cara pada tutorial ini akan memisahkan per halaman secara sekaligus.

• Dimana setiap satu halaman Word akan disimpan menjadi file PDF.
• Kita bisa menyimpan halaman tertentu saja, dengan mengisi nomor halaman awal dan halaman terakhir yang akan diubah ke PDF.
• Judul file menggunakan keterangan pada baris pertama.

Cara Menyimpan Word ke PDF Per Halaman di Laptop

Sebagai contoh, kita akan memisahkan file Word yang terdiri dari 5 halaman.

Judul masing-masing file PDF adalah tulisan pada baris pertama, yaitu Page 1, Page 2, Page 3, Page 4, Page 5.

Silakan simak video berikut atau baca penjelasan detil di bawah ini.

Langkah-langkah membagi file Word dan menyimpannya menjadi PDF:

• Buka file Word yang ingin dipisahkan per halaman menjadi PDF.
• Lalu tekan tombol ALT + F11 untuk membuka editor VBA.
• Di tab Insert, pilih Module.
• Masukkan kode VBA di bawah ini dan tekan tombol Run (F5) untuk menjalankan kode.

Sub SaveWordAsSeparatePDFs()
    Dim I As Long
    Dim xStr As String
    Dim xPathStr As Variant
    Dim xDictoryStr As String
    Dim xFileDlg As FileDialog
    Dim xStartPage, xEndPage As Long
    Dim xStartPageStr, xEndPageStr As String
    Dim rg As Range, username As String
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDlg.Show <> -1 Then
        MsgBox "Please choose a valid directory", vbInformation, "Save Word to PDF"
        Exit Sub
    End If
    xPathStr = xFileDlg.SelectedItems(1)
    xStartPageStr = InputBox("Start Page:", "Save Word to PDF")
    xEndPageStr = InputBox("End Page", "Save Word to PDF")
    If Not (IsNumeric(xStartPageStr) And IsNumeric(xEndPageStr)) Then
        MsgBox "The entering for start page and end page should be in number format", vbInformation, "Save Word to PDF"
        Exit Sub
    End If
    xStartPage = CInt(xStartPageStr)
    xEndPage = CInt(xEndPageStr)
    If xStartPage > xEndPage Then
        MsgBox "The start page number can't be larger than end page", vbInformation, "Save Word to PDF"
        Exit Sub
    End If
    If xEndPage > ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) Then
        xEndPage = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
    End If
    For I = xStartPage To xEndPage
    
        Set rg = ActiveDocument.GoTo(wdGoToPage, wdGoToAbsolute, I)
        Set rg = rg.Paragraphs(1).Range
        rg.Select
        username = Replace(rg.Text, vbCr, vbNullString)
        
        ActiveDocument.ExportAsFixedFormat xPathStr & "\" & username & ".pdf", _
        wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I, wdExportDocumentWithMarkup, _
        False, False, wdExportCreateHeadingBookmarks, True, False, False
    Next
End Sub

• Pilih folder untuk menyimpan file PDF dengan mengklik ganda nama folder dan menekan tombol OK.
• Di kotak Start Page, masukkan nomor halaman awal. Tekan OK.
• Di kotak End Page, masukkan nomor halaman terakhir. Tekan OK.

Selesai. File PDF tersebut akan muncul di folder yang kita pilih.

Tips: bila ingin menyimpan halaman tertentu, misalnya halaman 3 saja, maka masukkan angka 3 di Start Page dan End Page.

Catatan: kode dalam tutorial berasal dari sini dan dimodifikasi lagi agar bisa menyimpan file dengan nama dari baris paragraf pertama.

Penutup

Demikian cara memisahkan dan mengkonversi file Word per halaman menjadi PDF dengan menggunakan kode VBA.

Cara ini sangat berguna bila Anda ingin memisahkan file Mail Merge yang berupa surat dalam jumlah banyak.

Lihat cara menyimpan Word, Excel, PowerPoint ke format PDF, bila ingin mengubah file Word menjadi PDF secara keseluruhan.