Bagaimana cara menyimpan setiap halaman sebagai file pdf terpisah dalam dokumen Word?

Saat menggunakan dokumen Microsoft Word, Anda dapat menyimpan setiap halaman sebagai file pdf terpisah satu per satu dengan fungsi Simpan Sebagai bawaannya dengan menentukan nomor halaman dalam dialog Opsi. Namun, jika ada ratusan halaman yang perlu dipecah dan disimpan sebagai file pdf individual, bagaimana caranya? Artikel ini memberikan metode bagi Anda untuk menyelesaikan masalah ini dengan cepat.

Simpan setiap halaman sebagai file pdf terpisah secara massal dengan kode VBA

Simpan setiap halaman sebagai file pdf terpisah secara massal dengan kode VBA

Kode VBA di bawah ini membantu Anda dengan cepat menyimpan setiap halaman dalam dokumen sebagai file pdf individual pada waktu yang sama. Silakan lakukan sebagai berikut.

1. Buka dokumen Anda akan menyimpan setiap halaman atau halaman tertentu sebagai file pdf, kemudian tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul, salin di bawah kode VBA ke jendela Modul.

Kode VBA: Simpan setiap halaman sebagai file pdf terpisah secara bersamaan dalam dokumen Word

Sub SaveAsSeparatePDFs()
'Updated by Extendoffice 20180906
    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
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDlg.Show <> -1 Then
        MsgBox "Please chose a valid directory", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xPathStr = xFileDlg.SelectedItems(1)
    xStartPageStr = InputBox("Begin saving PDFs starting with page __? " & vbNewLine & "(ex: 1)", "Kutools for Word")
    xEndPageStr = InputBox("Save PDFs until page __?" & vbNewLine & "(ex: 7)", "Kutools for Word")
    If Not (IsNumeric(xStartPageStr) And IsNumeric(xEndPageStr)) Then
        MsgBox "The enterng start page and end page should be number format", vbInformation, "Kutools for Word"
        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, "Kutools for Word"
        Exit Sub
    End If
    If xEndPage > ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) Then
        xEndPage = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
    End If
    For I = xStartPage To xEndPage
        ActiveDocument.ExportAsFixedFormat xPathStr & "\Page_" & I & ".pdf", _
        wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I, wdExportDocumentWithMarkup, _
        False, False, wdExportCreateHeadingBookmarks, True, False, False
    Next
End Sub

3. tekan F5 kunci untuk menjalankan kode.

4. Dalam Browse jendela, pilih folder untuk menyimpan file pdf dan klik OK tombol. Lihat tangkapan layar:

5. Yang pertama Kutools for Word kotak dialog, masukkan nomor halaman awal dokumen Anda ke dalam kotak teks dan klik OK.

6. Di kedua Kutools for Word kotak dialog, masukkan nomor halaman terakhir dokumen Anda, lalu klik OK. Lihat tangkapan layar:

Note: Jika Anda hanya ingin menyimpan beberapa halaman terus menerus dalam dokumen sebagai file pdf terpisah seperti halaman 4, 5 dan 6, masukkan 4 dan 6 secara terpisah ke dalam dua kotak dialog di atas.

Setelah menjalankan kode, silakan pergi ke folder yang ditentukan yang Anda pilih pada langkah 4, Anda dapat melihat semua halaman dibagi dan disimpan sebagai file pdf individual seperti gambar di bawah ini.

Alat Produktivitas Kantor Terbaik

Kutools for Word - Tingkatkan Pengalaman Kata Anda dengan Over 100 Fitur Luar Biasa!

🤖 Fitur AI Kutools: Hasilkan Konten / Menulis Ulang Teks / Tanya Jawab Dokumen / Dapatkan Jawaban Cepat / Terjemahkan dokumen / Dokumen Polandia (Format Pertahankan)...

📘 Penguasaan Dokumen: Halaman Terpisah / Gabungkan Dokumen / Ekspor Pilihan dalam Berbagai Format (PDF/TXT/DOC/HTML...) / Konversi Batch ke PDF...

✏ Pengeditan Isi: Temukan dan Ganti Batch di Beberapa File / Ubah Ukuran Semua Gambar / Ubah Urutan Baris dan Kolom Tabel / Ubah Tabel menjadi Teks...

🧹 Bersih dengan Mudah: Menyapu Spasi Ekstra / Bagian Istirahat / Teks box / Hyperlink / Untuk alat penghapus lainnya, kunjungi Hapus kelompok...

➕ Sisipan Kreatif: Memasukkan Seribu Pemisah / Kotak Centang / Tombol Radio / Kode QR / barcode / Banyak Gambar / Temukan lebih lanjut di Menyisipkan kelompok...

🔍 Pilihan Presisi: Tepat Halaman Tertentu / Meja / bentuk / Paragraf Judul / Tingkatkan navigasi dengan lebih Pilih fitur...

⭐ Peningkatan Bintang: Navigasi ke Lokasi Mana Pun / Sisipkan Otomatis Teks Berulang / Beralih Antar Jendela Dokumen / 11 Konversi Tools...

👉 Ingin mencoba fitur-fitur tersebut? Unduh Kutools untuk Word sekarang! 🚀

Free download     Beli sekarang     Pelajari Lebih Lanjut tentang Kutools untuk Word

 

Alat Produktivitas Kantor Terbaik

Kutools for Word - 100+ Alat untuk Word

• 🤖 Fitur AI Kutools: Menghasilkan, Menulis kembali, Meringkaskan, Menterjemahkan Dokumen / Dapatkan Jawaban Cepat / Dokumen Polandia (Format Pertahankan)
• 📘 Penguasaan Dokumen: Halaman Terpisah / Gabungkan Dokumen / Konversi Batch ke PDF
• ✏ Pengeditan Isi: Temukan dan Ganti Batch / Ubah Ukuran Semua Gambar
• 🧹 Bersih dengan Mudah: Hapus Spasi Ekstra / Hapus Bagian Breaks
• ➕ Sisipan Kreatif: Masukkan Seribu Pemisah / Sisipkan Kotak Centang / Buat Kode QR

Free download Beli sekarang Pelajari Lebih Lanjut tentang Kutools