如何批次將Word文檔轉換為txt文件?
本文將介紹如何在Word中將特定文件夾中的所有Word文檔批次轉換為單獨的TXT文件。
使用VBA將Word文檔批次轉換為txt文件
以下VBA代碼可以幫助您一次性將特定文件夾中的所有Word文檔轉換為txt文件。請按照以下步驟操作。
1. 在Word文檔中,按下 Alt + 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文檔的文件夾,然後點擊確定按鈕。參見截圖:
然後您可以看到所選文件夾中的所有文檔都一次性轉換為txt文件。參見截圖:
最佳辦公效率工具
Kutools for Word - 透過超過 100 項卓越功能提升您的 Word 體驗!
🤖 Kutools AI 功能:AI助手 / 即時助手 / 超級潤色(保留格式)/ 超級翻譯(保留格式)/ AI遮擋 / AI校正...
📘 文件精通:拆分頁面 / 合併文檔 / 以多種格式導出選擇內容(PDF/TXT/DOC/HTML...)/ 批量轉換為 PDF...
✏ 內容編輯:跨多個文件進行批量查找和替換 / 調整所有圖片大小 / 翻轉表格的行與列 / 表格轉文本...
🧹 輕鬆清理:清除多餘空格 / 分節符 / 文本框 / 超鏈接 / 更多清除工具,請前往“清除”組...
➕ 創意插入:插入千位分隔符 / 複選框 / 選項按鈕 / 二維碼 / 條形碼 / 多張圖片 / 在“插入”組中發現更多...
🔍 精確選擇:精準定位特定頁面 / 表格 / 形狀 / 標題段落 / 使用更多“ 選擇 ”功能增強導航...
⭐ 星級增強功能:跳轉至任意位置 / 自動插入重複文本 / 在文檔窗口之間切換 / 11 種轉換工具...
