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