Word文書をtxtファイルにバッチ変換する方法は？

この記事では、特定のフォルダー内のすべてのWord文書をWord内の個別のTXTファイルにバッチ変換する方法について説明しています。

VBAを使用してWord文書をtxtファイルにバッチ変換する

VBAを使用してWord文書をtxtファイルにバッチ変換する

以下のVBAコードは、特定のフォルダー内のすべてのWord文書を一度にtxtファイルに変換するのに役立ちます。 次のようにしてください。

1. Word文書で、を押します。 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール、次に以下のコードをモジュールウィンドウにコピーします。

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ファイルに変換されるのを確認できます。 スクリーンショットを参照してください：

---

推奨される単語生産性ツール

 

Word用のKutools - Word用の100以上の高度な機能で、50%の時間を節約

• 複雑で繰り返される操作は、数秒でXNUMX回の処理で実行できます。
• 複数の画像をフォルダ間でWord文書に一度に挿入します。
• フォルダ間で複数のWordファイルをマージして、希望の順序でXNUMXつに結合します。
• 見出し、セクション区切り、またはその他の基準に従って、現在のドキュメントを個別のドキュメントに分割します。
• DocとDocx、DocxとPDFの間でファイルを変換し、一般的な変換と選択のためのツールのコレクションなど...

続きを読む 今すぐダウンロード 購入