Word文書を一括でtxtファイルに変換するにはどうすればよいですか?
この記事では、特定のフォルダー内のすべてのWord文書を、個別のTXTファイルに一括で変換する方法について説明します。
VBAを使用して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. ブラウズウィンドウで、変換したいWord文書が含まれているフォルダーを選択し、OKボタンをクリックします。スクリーンショットをご覧ください:
これで、選択したフォルダー内のすべての文書が一度にtxtファイルに変換されます。スクリーンショットをご覧ください:
最高のオフィス生産性ツール
Kutools for Word - Wordの体験を100以上の素晴らしい機能で向上させましょう!
🤖 Kutools AI機能: AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ (形式を保持) / スーパー トランスレート (形式を保持) / AI編集 / AI校正...
📘 文書のマスタリー: ページの分割 / 文書の結合 / 様々な形式で選択をエクスポート (PDF/TXT/DOC/HTML...) / 一括PDF変換...
✏ 内容の編集: 複数ファイルにわたる一括検索と置換 /すべての画像をリサイズ / 表の転置 / 表をテキストに変換...
🧹 簡単なクリーンアップ:余分なスペース / セクション区切り / テキストボックス / ハイパーリンクを一掃 / その他の削除ツールは削除グループへ...
➕ 創造的な挿入: 千の区切りを挿入 / チェックボックス / ラジオボタン / QRコード / バーコード / 複数の画像 / 挿入グループでさらに発見...
🔍 精密な選択: 特定のページ / 表 / 図形 / 見出し段落を特定 / より多くの 選択 機能でナビゲーションを強化...
⭐ スター強化: 任意の場所に移動 / 繰り返しテキストを自動挿入 / 文書ウィンドウ間を切り替え /11 の変換ツール...

最高のオフィス生産性ツール
Kutools for Word - 100+ Word用ツール
- 🤖 Kutools AI機能: AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ / スーパー トランスレート / AI編集 / AI校正
- 📘 文書のマスタリー: ページの分割 / 文書の結合 / 一括PDF変換
- ✏ 内容の編集: 一括検索と置換 /すべての画像をリサイズ
- 🧹 簡単なクリーンアップ:余分なスペースを削除 / セクション区切りを削除
- ➕ 創造的な挿入: 千の区切りを挿入 / チェックボックスを挿入 / QRコードを作成