如何批次將 Word 文件轉換為純文字檔？

本文介紹如何在 Word 中，將指定資料夾內的所有 Word 文件批次轉換為獨立的純文字檔。

使用 VBA 批次轉換 Word 文件為文本文檔

---

使用 VBA 批次轉換 Word 文件為文本文檔

下列 VBA 程式碼可協助您將指定資料夾中的所有 Word 文件一次轉換為純文字檔。請依照以下步驟操作：

1. 在 Word 文件中，按下 Alt＋F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！

2. 在 Microsoft Visual Basic for Applications 視窗中，點選插入＞ 模組，並將下方程式碼複製至模組視窗中。

VBA 程式碼：批次轉換 Word 文件為文本文檔

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. 在瀏覽視窗中，選取包含欲轉換為文本文檔之 Word 檔案的資料夾，然後點選確定按鈕。請參閱截圖：

接著，您將立即看到所選資料夾中的所有文件已一次性全部轉換為文本文檔。請參閱截圖：