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: 2024-08-09

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ú ý!

🤖 Tính năng AI của Kutools: Tạo nội dung / Viết lại văn bản / Hỏi đáp tài liệu / Nhận câu trả lời nhanh / Dịch tài liệu / Tài liệu tiếng Ba Lan (Định dạng bảo tồn)...

📘 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...

✏ 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ản...

🧹 Dễ dàng làm sạch: Quét đi Không gian bổ sung / Phần ngắt / 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 Hủy bỏ tập đoà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 / Nhiều Hình Ảnh / Khám phá thêm trong Chèn tập đoà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ăng, đặc điểm...

⭐ 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 Chuyển đổi CÔNG CỤ ...

👉 Bạn muốn thử những tính năng này? Tải xuống Kutools cho Word ngay bây giờ! 🚀Tải xuống miễn phí Mua ngay Tìm hiểu thêm về Kutools cho Word

Công cụ năng suất văn phòng tốt nhất

Kutools cho Word - Hơn 100 công cụ cho Word

• 🤖 Tính năng AI của Kutools: Tạo ra, Rewrite, Tóm tắt, Dịch Các tài liệu / Nhận câu trả lời nhanh / Tài liệu tiếng Ba Lan (Định dạng bảo tồn)
• 📘 Làm chủ tài liệu: Chia trang / Hợp nhất tài liệu / Chuyển đổi hàng loạt sang PDF
• ✏ Chỉnh sửa nội dung: Tìm và thay thế hàng loạt / Thay đổi kích thước tất cả hình ảnh
• 🧹 Dễ dàng làm sạch: Xóa các dấu cách bổ sung / Xóa dấu ngắt phần
• ➕ Phụ trang quảng cáo: Chèn ngàn dấu phân cách / Chèn hộp kiểm / Tạo mã QR

Tải xuống miễn phí Mua ngay Tìm hiểu thêm về Kutools