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

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の間でファイルを変換し、一般的な変換と選択のためのツールのコレクションなど...
コメントを並べ替える
コメント (22)
5の5を評価 · 1の評価
このコメントは、サイトのモデレーターによって最小化されました
私は詩のファンです。 700以上の単語構成をtxtに変換する必要がありました。 あなたのサブルーチンのおかげで、私はすぐにそれを行うことができました。
ありがとうございました
このコメントは、サイトのモデレーターによって最小化されました
Macで最新のWordを使用する場合、同じコードを提供することはできますか? ランタイムエラー5948が発生し、デバッグポイントは次のセクションになります。SetxDlg = Application.FileDialog(msoFileDialogFolderPicker)••••ˇˇˇˇ
このコメントは、サイトのモデレーターによって最小化されました
ありがとうございました! これは非常に役立ちます
このコメントは、サイトのモデレーターによって最小化されました
どのようにしてそれを機能させましたか?
このコメントは、サイトのモデレーターによって最小化されました
私のために働いていない、なぜ何かアイデアはありますか?
変換したい同じフォルダのワードドキュメントまたは開始した新しいワードドキュメントでこれを行う必要がありますか? -両方のオプションを試しましたが、どれも機能していませんが、エラーメッセージも表示されません
このコメントは、サイトのモデレーターによって最小化されました
Windows10とMicrosoftOffice2016を使用しています
このコメントは、サイトのモデレーターによって最小化されました
xFileStr = Dir(xFolder& "\ *。doc")をxFileStr = Dir(xFolder& "\ *。docx")に変更します。これは、新しいワードファイル形式があると想定しているためです。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、コードは機能しますが、最後に「ランタイムエラー91」が表示され、一部のファイルにオブジェクトが含まれています。 どうすればこれを修正できますか?
このコメントは、サイトのモデレーターによって最小化されました
大いに感謝する! チャームのように働いた!
このコメントは、サイトのモデレーターによって最小化されました
.docxファイルでいっぱいのフォルダで迅速かつ完璧に動作しました。 ありがとうございます/
このコメントは、サイトのモデレーターによって最小化されました
このスクリプトは私にとってはうまく機能しますが、XNUMXつのフォルダーに対してのみ機能します。 すべてのサブフォルダーを含める方法はありますか?
このコメントは、サイトのモデレーターによって最小化されました
これに感謝します-「誰かがすでにこれを行っているのではないか」と思ったとき、私は自分で何かをコーディングしようとしていました。 あなたが持っていた、そして私がしたよりもエレガントな取引。 頑張ってくれてありがとう。
このコメントは、サイトのモデレーターによって最小化されました
上記のスクリプトを使用して韓国語のドキュメントをバッチ変換しましたが、スクリプトが機能しませんでした。 エンコーディングを変更するのに疲れたとき、誰かがこのエラーを手伝ってくれますか?
このコメントは、サイトのモデレーターによって最小化されました
区切られたテキストファイルに変換する必要がありますが、これはまだ可能です。
このコメントは、サイトのモデレーターによって最小化されました
それはうまくいきました! ありがとう!
5の5を評価
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、この投稿をありがとう。 「実行」を押すと、「コンパイル エラー: 外部プロシージャが無効です」というエラー メッセージが表示されます。 これは、私が doc または docx 拡張機能を使用しているかどうかです (無関係かもしれませんが、両方を試しました)。 コードの使い方がわかりません...そして、本当に大量のドキュメントを変換する必要があります。 ありがとうございました!
このコメントは、サイトのモデレーターによって最小化されました
ドゥルガーさん、こんにちは。
私の場合、コードはうまく機能します。
モジュール (コード) ウィンドウに、投稿で提供されている VBA コードのみが含まれていることを確認してください。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、これは完全に機能します。 TXT の別のエンコード形式 (たとえば、Windows ではなく UTF-8) を選択する方法はありますか?
このコメントは、サイトのモデレーターによって最小化されました
ハイ・サイモン、
次の VBA コードは、指定されたフォルダー内のすべての Word ドキュメントを UTF-8 .txt ファイルに変換するのに役立ちます
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
このコメントは、サイトのモデレーターによって最小化されました
どうもありがとう
このコメントは、サイトのモデレーターによって最小化されました
メルシーボークー! La conversion se fait très bien
このコメントは、サイトのモデレーターによって最小化されました
Vielen Dank, das ist wirklich sehr hilfreich! Ich werde auf Deine Seite bei der nächsten Gelegenheit verweisen.
挨拶
ウリ
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護