Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara batch mengkonversi file format .doc ke .docx di Word?

Misalkan Anda telah menerima beberapa dokumen Word format 97-2003, bagaimana Anda dapat mengonversi semua dokumen format .doc ini ke format .docx sekaligus? Artikel ini akan menunjukkan kepada Anda dua metode untuk mengatasi masalah ini.

Batch mengkonversi file format .doc ke .docx dengan kode VBA
Batch mengkonversi file format .doc ke .docx dengan Kutools for Word


Batch mengkonversi file format .doc ke .docx dengan kode VBA

Bagian ini akan menunjukkan kepada Anda kode VBA untuk mengonversi semua dokumen format .doc dalam folder tertentu ke dokumen .docx sekaligus. Silakan lakukan sebagai berikut.

1. Kumpulkan semua dokumen berformat .doc yang akan Anda ubah ke .docx dalam folder tertentu.

2. tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

3. Di jendela, klik Menyisipkan > Modul. Kemudian salin kode VBA di bawah ini ke jendela Modul.

Kode VBA: Batch mengkonversi semua dokumen format .doc ke .docx dalam folder tertentu

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20181128
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xFileName As String
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1) + "\"
    xFileName = Dir(xFolder & "*.doc", vbNormal)
    While xFileName <> ""
        Documents.Open FileName:=xFolder & xFileName, _
            ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
            wdOpenFormatAuto, XMLTransform:=""
        ActiveDocument.SaveAs xFolder & Replace(xFileName, "doc", "docx"), wdFormatDocumentDefault
        ActiveDocument.Close
        xFileName = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub

4. tekan F5 kunci untuk menjalankan kode. Dalam pembukaan Browse jendela, pilih folder yang berisi dokumen format .doc dan klik OK. Lihat tangkapan layar:

Kemudian semua dokumen format .doc dikonversi ke dokumen .docx segera seperti gambar di bawah ini.


Batch mengkonversi file format .doc ke .docx dengan Kutools for Word

Utilitas yang praktis akan direkomendasikan di bagian ini. Dengan Doc / Docx kegunaan Kutools for Word, Anda dapat dengan mudah mengonversi semua dokumen berformat .doc dalam sebuah folder menjadi dokumen .docx. Silakan coba sebagai berikut.

Kutools for Word : Dengan lebih dari 100 add-in Word yang praktis, gratis untuk mencoba tanpa batasan dalam 60 hari.

1. Harap kumpulkan semua dokumen berformat .doc dalam folder tertentu, lalu klik Kutools Plus > Doc / Docx. Lihat tangkapan layar:

2. Dalam Pengonversi Format Dokumen kotak dialog, Anda perlu melakukan hal berikut:

2.1) Pilih folder berisi dokumen format .doc di Folder file sumber bagian;
2.2) Pilih Konversi doc ke docx dari Konversi Format daftar drop-down;
2.3) Secara default, file Jalur tujuan sama dengan sumber kotak dicentang. Jika Anda ingin menempatkan semua dokumen .docx yang telah dikonversi dalam folder yang sama, biarkan opsi ini tetap dipilih;
Jika Anda ingin memisahkan dokumen .docx dan dokumen .doc sumber, hapus centang pada .docx Jalur tujuan sama dengan sumber kotak, dan pilih folder baru untuk menyimpan dokumen .docx di Simpan ke kotak;
2.4) Klik Start tombol. Lihat tangkapan layar:

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 format .doc dikonversi ke file .docx. Lihat tangkapan layar:

Jika Anda ingin mencoba utilitas ini secara gratis, buka unduh perangkat lunak gratis pertama, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.


Kutools for Outlook - Menghadirkan 100 Fitur Canggih ke Outlook, dan Membuat Pekerjaan Lebih Mudah!

  • CC / BCC Otomatis dengan aturan saat mengirim email; Maju Otomatis Beberapa Email secara khusus; Balas otomatis tanpa server pertukaran, dan lebih banyak fitur otomatis ...
  • Peringatan BCC - tunjukkan pesan ketika Anda mencoba membalas semua jika alamat email Anda ada di daftar BCC; Ingatkan Saat Lampiran Hilang, dan lebih banyak fitur pengingat ...
  • Balas (Semua) Dengan Semua Lampiran di percakapan surat; Balas Banyak Email dalam hitungan detik; Tambah Salam Otomatis saat membalas; Tambahkan Tanggal ke dalam subjek ...
  • Alat Lampiran: Kelola Semua Lampiran di Semua Email, Lepaskan Otomatis, Kompres Semua, Ganti Nama Semua, Simpan Semua ... Laporan Cepat, Hitung Email yang Dipilih...
  • Email Sampah yang Kuat dengan kebiasaan; Hapus Duplikat Email dan Kontak... Memungkinkan Anda melakukan lebih cerdas, lebih cepat, dan lebih baik di Outlook.
shot kutools outlook tab kutools 1180x121
tembak kutools outlook kutools plus tab 1180x121
 
Urutkan komentar berdasarkan
komentar (17)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Pujian! Terima kasih telah berbagi. Ini sangat membantu. Saya memiliki lebih dari 50 dokumen yang perlu dikonversi. Hanya butuh satu sentuhan selama 000 jam untuk menyelesaikan semuanya. Bantuan besar. Saya menggunakan opsi 39
Komentar ini diminimalkan oleh moderator di situs
Buka dokumen Word yang ingin Anda ubah menjadi file PDF. Jika Anda hanya ingin mengimpor ... ConvertOnlineFree - percakapan individu dan kumpulan dokumen Word ke PDF ... PDFOnline - pengonversi Word (doc, docx, dan txt) ke PDF gratis.

Blog yang bagus, artikel yang Anda bagikan bagus. Artikel ini sangat bermanfaat. Teman saya menyarankan saya untuk menggunakan blog ini.

https://customersurveyinfo.com
Komentar ini diminimalkan oleh moderator di situs
Halo, terima kasih telah berbagi.
Komentar ini diminimalkan oleh moderator di situs
Hal-hal menarik untuk dibaca. Teruskan.
Komentar ini diminimalkan oleh moderator di situs
Halo,
Saya senang menemukan informasi yang berguna ini Terima kasih telah berbagi artikel yang luar biasa ini.
Komentar ini diminimalkan oleh moderator di situs
Hi....Hai, konten blog ini informasi yang sangat teknis, ini adalah salah satu blog terbaik yang saya punya. Sangat menarik dan menggambarkan dengan cara yang sangat mudah.
Komentar ini diminimalkan oleh moderator di situs
Hello sir,
Saya suka dengan posting ini. Saya sangat menghargai situs web ini. Informasi Anda sangat bagus dan berharga. Ide dan konsep yang bagus untuk berbagi situs web ini.
Ini adalah situs web yang luar biasa. Postingan ini bagus.
Terima kasih telah berbagi
Komentar ini diminimalkan oleh moderator di situs
Halo Postingan yang bagus .. Teruslah berbagi. Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Ini artikel yang sangat berwawasan, merasa sangat membantu dan informatif
Komentar ini diminimalkan oleh moderator di situs
Terimakasih telah membagikan informasi yang berguna ini.
Komentar ini diminimalkan oleh moderator di situs
perusahaan desain grafis terbaik di india
Merancang adalah keterampilan mengkomunikasikan kata-kata sebagai artikulasi. Visual lebih penting daripada kata-kata di bidang lanjutan.
Para ahli dalam bisnis desain merekomendasikan agar ilustrasi lebih mudah diingat daripada kata-kata,
dan itulah alasan Perancangan situs web dan Grafik memainkan pekerjaan penting.

Komentar ini diminimalkan oleh moderator di situs
Terima kasih telah berbagi
Komentar ini diminimalkan oleh moderator di situs
Informasi yang bagus Sangat bermanfaat terima kasih telah berbagi.

Farmtrac 60
Komentar ini diminimalkan oleh moderator di situs
Alat yang bagus tetapi saya mendapat masalah, bahwa saya tidak dapat mengonversi file DOC (ditulis dalam huruf besar!) Menjadi file docx.
Ia bekerja dengan file doc.
Komentar ini diminimalkan oleh moderator di situs
Hai,
Kode berikut dapat membantu mengonversi kedua dokumen. dan DOK. file menjadi file docx. Ayo cobalah. Terima kasih atas tanggapan Anda.

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20220506
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xFileName As String
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1) + "\"
    xFileName = Dir(xFolder & "*.doc", vbNormal)
    While xFileName <> ""
        Documents.Open FileName:=xFolder & xFileName, _
            ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
            wdOpenFormatAuto, XMLTransform:=""
        ActiveDocument.SaveAs xFolder & Replace(VBA.LCase(xFileName), "doc", "docx"), wdFormatDocumentDefault
        ActiveDocument.Close
        xFileName = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub
Komentar ini diminimalkan oleh moderator di situs
Dobrý's,
já bych potřeboval, ale skrip VBA který oleh fungoval včetně podsložek. Umíte někdo proím upravit i tento skript? Dokuji.

ENG:
Hari baik,
Saya akan membutuhkan skrip VBA yang akan berfungsi termasuk subfolder. Bisakah seseorang mengedit skrip ini juga? Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Hi Daniel Beneš,
Untuk memasukkan subfolder, silakan coba kode VBA berikut.
Setelah menambahkan kode, pergi ke Tools tab, klik Referensi, dalam pembukaan Referensi - Proyek kotak dialog, periksa Runtime Microsoft Scripting kotak, dan kemudian klik OK tombol untuk menyimpan perubahan. Lihat tangkapan layar berikut:
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/check-scripting_runtime.png
Setelah itu, tekan tombol F5 kunci untuk menjalankan kode.

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20221124
  Dim xDlg As FileDialog
  Dim xFldPath As Variant
  Dim xFileName As String
  On Error Resume Next
  Application.ScreenUpdating = False
  Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
  If xDlg.Show <> -1 Then Exit Sub
  xFldPath = xDlg.SelectedItems(1) + "\"
  Call ListAllFiles(xFldPath)
  Application.ScreenUpdating = True
End Sub

Function ListAllFiles(FldPath)
  Dim xFSO As FileSystemObject
  Dim xFolder As Folder
  Dim xSubFolder As Folder
  Dim xNewName As String
  On Error Resume Next
  xFileName = Dir(FldPath & "*.doc", vbNormal)
  While xFileName <> ""
    xNewName = VBA.Left$(xFileName, VBA.InStrRev(xFileName, "doc") - 1) & "docx"
    Documents.Open FileName:=FldPath & xFileName, _
        ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto, XMLTransform:=""
    ActiveDocument.SaveAs FldPath & xNewName, wdFormatDocumentDefault
    ActiveDocument.Close
    xFileName = Dir()
  Wend
  Set xFSO = CreateObject("Scripting.FileSystemObject")
  Set xFolder = xFSO.GetFolder(FldPath)
  For Each xSubFolder In xFolder.SubFolders
    Call ListAllFiles(xSubFolder.Path + "\")
  Next
  Set xFSO = Nothing
  Set xFolder = Nothing
End Function
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan