Làm Thế Nào để Chuyển đổi Hàng Loạt Tài Liệu Word Sang Tệp Txt?

Làm thế nào để chuyển đổi hàng loạt tài liệu Word sang tệp txt?

Tác giả: Siluvia Sửa đổi lần cuối: 2018-11-23

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 văn phòng tốt nhất

Kutools cho Word - Nâng cao trải nghiệm sử dụng từ của bạn với Over 100 Các tính năng đáng chú ý!

🤖 Trợ lý AI của Kutools: Biến đổi bài viết của bạn bằng AI - Tạo nội dung / Viết lại văn bản / Tóm tắt tài liệu / Hỏi thông tin dựa trên tài liệu, tất cả đều có trong Word

📘 Làm chủ tài liệu: Chia trang / Hợp nhất tài liệu / Lựa chọn xuất khẩu ở nhiều định dạng khác nhau (PDF/TXT/DOC/HTML...) / Chuyển đổi hàng loạt sang PDF / Xuất trang dưới dạng hình ảnh / In nhiều tập tin cùng một lúchữu ích. Cảm ơn !

✏ Chỉnh sửa nội dung: Tìm và thay thế hàng loạt trên nhiều tệp / Thay đổi kích thước tất cả hình ảnh / Hoán đổi hàng và cột của bảng / Chuyển bảng thành văn bảnhữu ích. Cảm ơn !

🧹 Dễ dàng làm sạch: Quét điKhông gian bổ sung / Phần ngắt / Tất cả các tiêu đề / Hộp văn bản / Các siêu liên kết / Để biết thêm các công cụ xóa, hãy đi tới Xóa nhómhữu ích. Cảm ơn !

➕ Phụ trang quảng cáo: Chèn Ngàn dấu phân cách / Hộp kiểm tra / Nút radio / Mã QR / Mã vạch / Bảng đường chéo / Chú thích phương trình / Hình ảnh Caption / Bảng chú thích / Nhiều Hình Ảnh / Khám phá thêm trong Chèn nhómhữu ích. Cảm ơn !

???? Lựa chọn chính xác: Xác định Các trang cụ thể / Bàn / Hình dạng / Đoạn tiêu đề / Tăng cường điều hướng với chi tiết Chọn tính nănghữu ích. Cảm ơn !

⭐ Cải tiến sao: Điều hướng đến bất kỳ vị trí nào / Tự động chèn văn bản lặp lại / Chuyển đổi giữa các cửa sổ tài liệu / 11 công cụ chuyển đổihữu ích. Cảm ơn !

👉 Bạn muốn thử những tính năng này? Kutools cho Word cung cấp một 60 ngày dùng thử miễn phí, không có giới hạn! 🚀 Tải xuống miễn phí Tìm hiểu thêm Mua ngay