Làm thế nào để chuyển đổi hàng loạt tài liệu Word sang tệp txt?
Bài viết này nói về cách chuyển đổi hàng loạt tất cả các tài liệu Word trong một thư mục cụ thể để tách các tệp TXT trong Word.
Chuyển đổi hàng loạt tài liệu Word sang tệp txt với VBA
Chuyển đổi hàng loạt tài liệu Word sang tệp txt với VBA
Mã VBA dưới đây có thể giúp chuyển đổi tất cả các tài liệu Word trong một thư mục cụ thể thành tệp txt cùng một lúc. Hãy làm như sau.
1. Trong tài liệu Word, nhấn Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun, sau đó sao chép mã bên dưới vào cửa sổ Mô-đun.
Mã VBA: Chuyển đổi hàng loạt tài liệu Word sang tệp 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. Nhấn nút F5 phím để chạy mã.
4. bên trong Xem cửa sổ, chọn thư mục chứa tài liệu Word mà bạn sẽ chuyển đổi sang tệp txt và nhấp vào OK cái nút. Xem ảnh chụp màn hình:
Sau đó, bạn có thể thấy tất cả các tài liệu trong thư mục đã chọn được chuyển đổi thành tệp txt cùng một lúc. Xem ảnh chụp màn hình:
Công cụ năng suất Word được đề xuất
Kutools cho Word - Hơn 100 tính năng nâng cao cho Word, tiết kiệm 50% thời gian của bạn
- Các hoạt động phức tạp và lặp đi lặp lại có thể được thực hiện xử lý một lần trong vài giây.
- Chèn nhiều hình ảnh trên các thư mục vào tài liệu Word cùng một lúc.
- Hợp nhất và kết hợp nhiều tệp Word trên các thư mục thành một với thứ tự mong muốn của bạn.
- Chia tài liệu hiện tại thành các tài liệu riêng biệt theo tiêu đề, ngắt phần hoặc các tiêu chí khác.
- Chuyển đổi tệp giữa Doc và Docx, Docx và PDF, bộ sưu tập các công cụ để chuyển đổi và lựa chọn phổ biến, v.v.
