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

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.
Nhận xét (22)
Xếp hạng 5 trong 5 · xếp hạng 1
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi là một fan hâm mộ của thơ. Tôi cần chuyển hơn 700 tác phẩm từ sang txt. Cảm ơn chương trình con của bạn, tôi đã quản lý để làm điều đó nhanh chóng.
Cảm ơn bạn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có thể cung cấp cùng một mã khi tôi sử dụng Word mới nhất trên máy Mac không? Tôi gặp lỗi Run-Time 5948 và gỡ lỗi trỏ đến phần này: Đặt xDlg = Application.FileDialog (msoFileDialogFolderPicker) •••• ˇˇˇˇ
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn! Điều này vô cùng hữu ích
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm thế nào bạn có được nó để làm việc?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Không làm việc cho tôi, bất kỳ ý tưởng tại sao?
Tôi có cần thực hiện việc này trong tài liệu word từ cùng thư mục mà tôi muốn chuyển đổi hoặc bất kỳ tài liệu word mới nào mà tôi bắt đầu không? - Đã thử cả hai tùy chọn và không có tùy chọn nào hoạt động nhưng tôi cũng không nhận được bất kỳ thông báo lỗi nào
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang sử dụng windows 10 và Microsoft office 2016
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thay đổi xFileStr = Dir (xFolder & "\ *. Doc") thành xFileStr = Dir (xFolder & "\ *. Docx") vì tôi giả sử bạn có định dạng tệp từ mới hơn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, mã hoạt động nhưng ở cuối cho tôi 'Lỗi thời gian chạy 91', một số tệp của tôi có các đối tượng. Bất kỳ ý tưởng làm thế nào tôi có thể sửa chữa điều này?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn rất nhiều! Làm việc như người ở!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm việc nhanh chóng và hoàn hảo trên một thư mục chứa đầy các tệp .docx. Tôi cám ơn/
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tập lệnh hoạt động tốt đối với tôi, nhưng chỉ cho một thư mục. Có cách nào để bao gồm tất cả các thư mục con không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn vì điều này - Tôi chỉ định tự mình viết mã thứ gì đó khi tôi nghĩ, "Này có lẽ ai đó đã làm điều này rồi?" Bạn đã có, và một thỏa thuận thanh lịch hơn tôi đã làm. Cảm ơn bạn đã làm việc chăm chỉ.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã sử dụng tập lệnh ở trên để chuyển đổi hàng loạt tài liệu bằng tiếng Hàn, nhưng tập lệnh không hoạt động. Khi tôi mệt mỏi để thay đổi bảng mã, bất cứ ai có thể giúp tôi với lỗi này?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi CẦN chúng chuyển đổi sang các tệp văn bản được phân tách, điều này vẫn có thể thực hiện được.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đó là một điều trị! Cảm ơn!
Xếp hạng 5 trong 5
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Cảm ơn bạn cho bài viết này. Khi tôi nhấn "run", tôi nhận được thông báo lỗi: "Lỗi biên dịch: Quy trình bên ngoài không hợp lệ." Đây là việc tôi sử dụng doc hay phần mở rộng docx (có thể không liên quan nhưng tôi đã thử cả hai.) Xin bạn có thể giúp đỡ? Tôi không biết làm thế nào để sử dụng mã .... và thực sự cần phải chuyển đổi rất nhiều tài liệu. Cảm ơn bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào Durga,
Mã hoạt động tốt trong trường hợp của tôi.
Vui lòng đảm bảo rằng cửa sổ Mô-đun (Mã) chỉ chứa mã VBA được cung cấp trong bài đăng.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, điều này hoạt động hoàn hảo. Có cách nào để chọn một định dạng mã hóa khác của TXT (ví dụ: UTF-8 thay vì Windows) không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Simon,
Mã VBA sau đây giúp chuyển đổi tất cả các tài liệu Word trong một thư mục được chỉ định thành tệp .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
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Rất cám ơn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Merci beaucoup! La convert se fait très bien
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Vielen Dank, das ist wirklich sehr hilfreich! Ich werde auf Deine Seite bei der nächsten Gelegenheit verweisen.
Gruß
Uli
Không có bình luận nào được đăng ở đây

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL