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

Bagaimana cara batch mengkonversi dokumen Word ke file txt?

Artikel ini berbicara tentang cara mengonversi batch semua dokumen Word di folder tertentu untuk memisahkan file TXT di Word.

Batch mengkonversi dokumen Word ke file txt dengan VBA


Batch mengkonversi dokumen Word ke file txt dengan VBA

Kode VBA di bawah ini dapat membantu mengonversi semua dokumen Word di folder tertentu ke file txt sekaligus. Silakan lakukan sebagai berikut.

1. Dalam dokumen 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 di bawah ini ke jendela Modul.

Kode VBA: Batch mengkonversi dokumen Word ke file txt

Sub ConvertDocumentsToTxt()
'Updated by Extendoffice 20181123
    Dim xIndex As Long
    Dim xFolder As Variant
    Dim xFileStr As String
    Dim xFilePath As String
    Dim xDlg As FileDialog
    Dim xActPath As String
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xFileStr = Dir(xFolder & "\*.doc")
    xActPath = ActiveDocument.Path
    While xFileStr <> ""
        xFilePath = xFolder & "\" & xFileStr
        If xFilePath <> xActPath Then
            Set xDoc = Documents.Open(xFilePath, AddToRecentFiles:=False, Visible:=False)
            xIndex = InStrRev(xFilePath, ".")
            Debug.Print Left(xFilePath, xIndex - 1) & ".txt"
            xDoc.SaveAs Left(xFilePath, xIndex - 1) & ".txt", FileFormat:=wdFormatText, AddToRecentFiles:=False
            xDoc.Close True
        End If
        xFileStr = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub

3. tekan F5 kunci untuk menjalankan kode.

4. Dalam Browse jendela, pilih folder berisi dokumen Word yang akan Anda konversi ke file txt, dan klik OK tombol. Lihat tangkapan layar:

Kemudian Anda dapat melihat semua dokumen di folder yang dipilih diubah menjadi file txt sekaligus. Lihat tangkapan layar:


Alat Produktivitas Kata yang Direkomendasikan

 

Kutools For Word - Lebih dari 100 Fitur Canggih Untuk Word, Hemat 50% Waktu Anda

  • Pengoperasian yang rumit dan berulang dapat dilakukan satu kali pemrosesan dalam hitungan detik.
  • Sisipkan beberapa gambar di seluruh folder ke dalam dokumen Word sekaligus.
  • Gabungkan dan gabungkan beberapa file Word di seluruh folder menjadi satu dengan urutan yang Anda inginkan.
  • Pisahkan dokumen saat ini menjadi dokumen terpisah sesuai dengan judul, hentian bagian, atau kriteria lainnya.
  • Konversikan file antara Doc dan Docx, Docx dan PDF, kumpulan alat untuk konversi dan pemilihan umum, dan seterusnya ...
Urutkan komentar berdasarkan
komentar (22)
Rated 5 dari 5 · peringkat 1
Komentar ini diminimalkan oleh moderator di situs
Saya penggemar puisi. Saya perlu mengonversi lebih dari 700 komposisi kata menjadi txt. Berkat subrutin Anda, saya berhasil melakukannya dalam waktu singkat.
Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Apakah mungkin untuk memberikan kode yang sama ketika saya menggunakan Word terbaru di Mac? Saya mendapatkan kesalahan Run-Time 5948 dan men-debug poin ke bagian ini: Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)••••ˇˇˇˇ
Komentar ini diminimalkan oleh moderator di situs
Terima kasih! Ini sangat membantu
Komentar ini diminimalkan oleh moderator di situs
Bagaimana Anda membuatnya bekerja?
Komentar ini diminimalkan oleh moderator di situs
Tidak bekerja untuk saya, ada ide mengapa?
Apakah saya perlu melakukan ini di dokumen Word dari folder yang sama yang ingin saya konversi atau dokumen Word baru yang saya mulai? -Mencoba kedua opsi dan tidak ada yang berfungsi tetapi saya juga tidak mendapatkan pesan kesalahan
Komentar ini diminimalkan oleh moderator di situs
Saya menggunakan windows 10 dan Microsoft office 2016
Komentar ini diminimalkan oleh moderator di situs
Ubah xFileStr = Dir(xFolder & "\*.doc") menjadi xFileStr = Dir(xFolder & "\*.docx") karena saya menganggap Anda memiliki format file Word yang lebih baru.
Komentar ini diminimalkan oleh moderator di situs
Hai, kodenya berfungsi tetapi pada akhirnya memberi saya 'Runtime error 91', beberapa file saya memiliki objek. Adakah yang tahu bagaimana saya bisa memperbaikinya?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak! Bekerja seperti pesona!
Komentar ini diminimalkan oleh moderator di situs
Bekerja dengan cepat dan sempurna pada folder yang penuh dengan file .docx. Saya berterima kasih pada Anda/
Komentar ini diminimalkan oleh moderator di situs
Script berfungsi dengan baik untuk saya, tetapi hanya untuk satu folder. Apakah ada cara untuk memasukkan semua subfolder?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih untuk ini - Saya baru saja akan membuat kode sesuatu sendiri ketika saya berpikir, "Hei, mungkin seseorang sudah melakukan ini?" Anda telah, dan kesepakatan yang lebih elegan daripada yang akan saya lakukan. Terima kasih atas kerja keras Anda.
Komentar ini diminimalkan oleh moderator di situs
Saya menggunakan skrip di atas untuk mengonversi dokumen dalam bahasa Korea, tetapi skrip tidak berfungsi. Ketika saya lelah untuk mengubah penyandian, Adakah yang bisa membantu saya dengan kesalahan ini?
Komentar ini diminimalkan oleh moderator di situs
Saya MEMBUTUHKAN mereka untuk mengonversi ke file teks yang dibatasi apakah ini masih mungkin.
Komentar ini diminimalkan oleh moderator di situs
Itu berhasil! Terima kasih!
Rated 5 dari 5
Komentar ini diminimalkan oleh moderator di situs
Halo, Terima kasih untuk posting ini. Ketika saya menekan "jalankan", saya mendapatkan pesan kesalahan: "Kesalahan Kompilasi: Prosedur Luar Tidak Valid." Ini apakah saya menggunakan ekstensi doc atau docx (mungkin tidak terkait tetapi saya mencoba keduanya.) Bisakah Anda membantu? Saya tidak tahu cara menggunakan kode .... dan benar-benar perlu mengonversi banyak dokumen. Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Hai Durga,
Kode berfungsi dengan baik dalam kasus saya.
Harap pastikan bahwa jendela Modul (Kode) hanya berisi kode VBA yang disediakan di pos.
Komentar ini diminimalkan oleh moderator di situs
Hai, ini bekerja dengan sempurna. Apakah ada cara untuk memilih format penyandian yang berbeda dari TXT (UTF-8, bukan Windows misalnya)?
Komentar ini diminimalkan oleh moderator di situs
Hai Simon,
Kode VBA berikut membantu mengonversi semua dokumen Word dalam folder tertentu ke file .txt UTF-8
Sub ConvertDocumentsToTxt()
'Updated by Extendoffice 20201031
    Dim xIndex As Long
    Dim xFolder As Variant
    Dim xFileStr As String
    Dim xFilePath As String
    Dim xDlg As FileDialog
    Dim xActPath As String
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xFileStr = Dir(xFolder & "\*.doc")
    xActPath = ActiveDocument.Path
    While xFileStr <> ""
        xFilePath = xFolder & "\" & xFileStr
        If xFilePath <> xActPath Then
            Set xDoc = Documents.Open(xFilePath, AddToRecentFiles:=False, Visible:=False)
            xIndex = InStrRev(xFilePath, ".")
            xDoc.SaveAs Left(xFilePath, xIndex - 1) & ".txt", FileFormat:=wdFormatText, AddToRecentFiles:=False, Encoding:=msoEncodingUTF8
            xDoc.Close True
        End If
        xFileStr = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub
Komentar ini diminimalkan oleh moderator di situs
Terimakasih banyak
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak ! Konversi itu benar-benar baik
Komentar ini diminimalkan oleh moderator di situs
Vielen Dank, das ist wirklich sehr hilfreich! Ich werde auf Deine Seite bei der nächsten Gelegenheit verweisen.
Salam
Uli
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL