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 - 100以上の優れた機能でWordの操作をさらに向上！
🤖 Kutools AI Features：AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ（形式を保持） / スーパー トランスレート（形式を保持） / AI編集 / AI校正...
📘 文書マスター：ページの分割 / 文書の結合 / 選択範囲を各種形式（PDF／TXT／DOC／HTMLなど）でエクスポート / 一括PDF変換...
✏ 内容編集：複数ファイルにわたる一括検索と置換 /すべての画像のリサイズ / 表の行と列の転置 / 表をテキストに変換...
🧹 簡単クリーン：余分なスペース / セクション区切り / テキストボックス / ハイパーリンクを一掃します。その他の削除ツールは削除グループでご覧いただけます...
➕ クリエイティブ挿入：千位区切りの挿入 / チェックボックスの挿入 / ラジオボタンの挿入 / QRコード / バーコード / 複数画像の挿入 / 他にも挿入グループにて発見...
🔍 高精度選択：特定のページ / 表 / 図形 / 見出し段落をピンポイントで選択。さらに多くの 選択 機能でナビゲーションを強化...
⭐ スター強化：任意の場所へ移動 / 繰り返しテキストの自動挿入 / 複数文書ウィンドウ間の切替 /11 種類の変換ツール...
🌍 40以上の言語に対応：Kutoolsはお好みの言語でお使いいただけます―英語、スペイン語、ドイツ語、フランス語、中国語など40以上の言語をサポート！
最高のオフィス生産性ツール
Kutools for Word - 100+ のWord用ツール
- 🤖 Kutools AI Features：AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ / スーパー トランスレート / AI編集 / AI校正
- 📘 文書マスター：ページの分割 / 文書の結合 / 一括PDF変換
- ✏ 内容編集：一括検索と置換 /すべての画像のリサイズ
- 🧹 簡単クリーン：余分なスペースの削除 / セクション区切りの削除
- ➕ クリエイティブ挿入：千位区切りの挿入 / チェックボックスの挿入 / QRコードの作成
- 🌍 40以上の言語に対応：Kutoolsはあなたの言語に対応 ―40以上の言語をサポート！