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 Save As bawaannya. Namun, jika ada ratusan halaman yang perlu dipisahkan dan disimpan sebagai file pdf individual, bagaimana Anda bisa melakukannya? 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.
Pisahkan dan simpan setiap halaman dokumen sebagai dokumen baru yang terpisah:
Grafik Pisahkan Dokumen kegunaan Kutools untuk Excel dapat membantu Anda dengan mudah membagi dan menyimpan setiap halaman dokumen saat ini sebagai dokumen baru yang terpisah secara massal seperti gambar di bawah ini. Unduh dan coba sekarang! (60- jalur bebas hari)
Alat Produktivitas Kantor Terbaik
Kutools for Word - Tingkatkan Pengalaman Kata Anda dengan Over 100 Fitur Luar Biasa!
🤖 Asisten AI Kutools: Ubah tulisan Anda dengan AI - Hasilkan Konten / Menulis Ulang Teks / Meringkas Dokumen / Menanyakan Informasi berdasarkan Dokumen, semuanya dalam Word
📘 Penguasaan Dokumen: Halaman Terpisah / Gabungkan Dokumen / Ekspor Pilihan dalam Berbagai Format (PDF/TXT/DOC/HTML...) / Konversi Batch ke PDF / Ekspor Halaman sebagai Gambar / Cetak Banyak File sekaligus...
✏ Pengeditan Isi: Temukan dan Ganti Batch di Banyak File / Ubah Ukuran Semua Gambar / Ubah Urutan Baris dan Kolom Tabel / Ubah Tabel menjadi Teks...
🧹 Bersih dengan Mudah: Menyapu Spasi Ekstra / Bagian Istirahat / Semua Header / Teks box / Hyperlink / Untuk alat penghapus lainnya, kunjungi kami Hapus Grup...
➕ Sisipan Kreatif: Memasukkan Seribu Pemisah / Kotak Centang / Tombol Radio / Kode QR / barcode / Tabel Garis Diagonal / Keterangan Persamaan / Keterangan gambar / Keterangan Tabel / Banyak Gambar / Temukan lebih lanjut di Sisipkan Grup...
🔍 Pilihan Presisi: Tepat halaman tertentu / tabel / bentuk / paragraf judul / Tingkatkan navigasi dengan lebih Pilih fitur...
⭐ Peningkatan Bintang: Navigasi dengan cepat ke lokasi mana pun / menyisipkan teks berulang secara otomatis / beralih antar jendela dokumen dengan mulus / 11 Alat Konversi...