如何將Word文檔批量轉換為txt文件?
本文討論的是如何將特定文件夾中的所有Word文檔批量轉換為Word中的單獨TXT文件。
使用VBA將Word文檔批量轉換為txt文件
下面的VBA代碼可以幫助將特定文件夾中的所有Word文檔立即轉換為txt文件。 請執行以下操作。
1.在Word文檔中,按 其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。
2。 在裡面 Microsoft Visual Basic for Applications 窗口中,單擊 插入 > 模塊,然後將以下代碼複製到“模塊”窗口中。
VBA代碼:將Word文檔批量轉換為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。 按 F5 鍵來運行代碼。
4。 在裡面 瀏覽 窗口中,選擇包含要轉換為txt文件的Word文檔的文件夾,然後單擊 OK 按鈕。 看截圖:
然後,您可以看到所選文件夾中的所有文檔都立即轉換為txt文件。 看截圖:
最佳辦公生產力工具
Kutools for Word - 透過 Over 提升您的文字體驗 100 顯著特點!
深入了解下面突出顯示的功能或 按此探索其全部功能 Kutools for Word.
📘 文件掌握: 分頁 / 合併文件 / 以各種格式匯出選擇(PDF/TXT/DOC/XLSX) / 批次轉換為PDF / 將頁面匯出為圖像 / 一次列印多個文件 ...
✏ 內容編輯: 批量查找和替換 跨多個文件 / 調整所有圖片的大小 / 轉置表行和列 / 將表格轉換為文字 ...
🧹 輕鬆清潔: 掃開 多餘的空間 / 分節符 / 所有標題 / 文本框 / 超鏈接 / 如需更多刪除工具,請前往我們的刪除群組
➕ 創意插入: 插入 千位分隔符 / 複選框 / 單選按鈕 / QR Code / 條碼 / 對角線表 / 公式標題 / 圖片說明 / 表格標題 / 多張圖片 / 在我們的插入組中發現更多信息
🔍 精準選擇: 精確定位特定頁面 / 表 / 形狀 / 標題段落 / 使用我們的選擇組輕鬆導航
⭐ 星級增強: 快速導航至任何位置 / 自動插入重複文字 / 在文檔視窗之間無縫切換 / 11 轉換工具 ...
使用 Kutools 轉換您的 Word 任務。 👉 立即下載並試用 30 天 🚀。















