Bagaimana cara batch mengkonversi beberapa dokumen Word ke file pdf?
Sangat mudah bagi Anda untuk mengonversi dokumen Word menjadi file PDF dengan fungsi Simpan sebagai di Word. Tetapi jika Anda ingin mengonversi semua dokumen Word dalam folder untuk memisahkan file PDF sekaligus, bagaimana Anda bisa mencapainya? Artikel ini akan menunjukkan kepada Anda kode VBA untuk mengonversi banyak dokumen Word menjadi file pdf di Word.
Batch mengonversi beberapa dokumen Word ke file pdf dengan VBA
Batch mengonversi beberapa dokumen Word ke file pdf dengan Kutools for Word
Batch mengonversi beberapa dokumen Word ke file pdf dengan VBA
Kode VBA berikut membantu Anda dengan cepat mengonversi semua dokumen Word dalam folder ke file pdf sekaligus. Silakan lakukan sebagai berikut.
1. Di Word, tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul, lalu salin kode VBA di bawah ini ke jendela Modul.
Kode VBA: Batch mengkonversi beberapa dokumen Word ke file pdf di Word
Sub ConvertWordsToPdfs()
'Updated by Extendoffice 20181123
Dim xIndex As String
Dim xDlg As FileDialog
Dim xFolder As Variant
Dim xNewName As String
Dim xFileName As String
Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xDlg.Show <> -1 Then Exit Sub
xFolder = xDlg.SelectedItems(1) + "\"
xFileName = Dir(xFolder & "*.*", vbNormal)
While xFileName <> ""
If ((Right(xFileName, 4)) <> ".doc" Or Right(xFileName, 4) <> ".docx") Then
xIndex = InStr(xFileName, ".") + 1
xNewName = Replace(xFileName, Mid(xFileName, xIndex), "pdf")
Documents.Open FileName:=xFolder & xFileName, _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
ActiveDocument.ExportAsFixedFormat OutputFileName:=xFolder & xNewName, _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
ActiveDocument.Close
End If
xFileName = Dir()
Wend
End Sub
3. tekan F5 kunci untuk menjalankan kode.
4. Dialog Jelajah akan muncul, pilih folder yang berisi dokumen Word yang akan Anda ubah ke file pdf, dan klik OK .
Kemudian semua dokumen Word di folder yang dipilih diubah menjadi file pdf yang terpisah sekaligus. Lihat tangkapan layar:
Batch mengonversi beberapa dokumen Word ke file pdf dengan Kutools for Word
Jika kode VBA sulit ditangani, Anda dapat mencoba Konversi dokumen kegunaan Kutools for Word untuk memecahkan masalah.
Kutools for Word : Dengan lebih dari 100 add-in Word yang praktis, bebas untuk mencoba tanpa batasan dalam 60 hari-hari.
1. klik Kutools Ditambah > Doc / Docx. Lihat tangkapan layar:
2. Dalam Pengonversi Format Dokumen jendela, Anda perlu melakukan hal berikut:
3. Kemudian sebuah kotak dialog muncul untuk memberitahu Anda berapa banyak dokumen yang telah berhasil diubah, klik OK tombol dan tutup Pengonversi Format Dokumen jendela.
Sekarang semua dokumen berformat .docx dikonversi ke file pdf.
Jika Anda ingin mencoba utilitas ini secara gratis, buka unduh perangkat lunak gratis pertama, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.
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...