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ファイルに変換されるのを確認できます。 スクリーンショットを参照してください:
最高のオフィス生産性向上ツール
Kutools for Word - Over で単語体験を向上させましょう 100 注目すべき機能!
以下のハイライトされた機能を詳しく見るか、 ここをクリックして、次の機能を最大限に活用してください Kutools for Word.
📘 ドキュメントマスタリー: 分割ページ / ドキュメントをマージする / 選択内容をさまざまな形式でエクスポート (PDF/TXT/DOC/XLSX) / PDFへの一括変換 / ページを画像としてエクスポート / 複数のファイルを一度に印刷する ...
✏ コンテンツ編集: バッチ検索と置換 複数のファイルにわたる / すべての画像のサイズを変更する / テーブルの行と列を転置する / 表をテキストに変換 ...
🧹 楽にお掃除: 一掃する 余分なスペース / セクションブレーク / すべてのヘッダー / テキストボックス / ハイパーリンク / その他の削除ツールについては、削除グループにアクセスしてください
➕ クリエイティブインサート: インセット 千の区切り文字 / チェックボックス / ラジオボタン / QRコード / バーコード / 斜線テーブル / 方程式のキャプション / 画像キャプション / テーブルキャプション / 複数の写真 / 挿入グループで詳細をご覧ください
🔍 正確な選択: 特定のページを特定する / テーブル / シェイプ / 見出し段落 / 選択グループを使用して簡単にナビゲートします
⭐ スターの強化: あらゆる場所に素早く移動 / 繰り返しのテキストを自動挿入 / ドキュメントウィンドウをシームレスに切り替える / 11 変換ツール ...
Kutools を使用して Word タスクを変換します。 👉 30 日間の試用版を今すぐダウンロード 🚀。















