Sebutkan cara menyimpan suatu file

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 melihat-lihat 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:

Catatan: 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 Kata yang Direkomendasikan