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機能: AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ（書式維持）/ スーパー トランスレート（書式維持）/ AI編集 / AI校正...
📘 文書マスター: ページの分割 / 文書の結合 / 選択範囲を様々な書式（PDF/TXT/DOC/HTMLなど）でソリューションをエクスポート / 一括PDF変換...
✏ テキスト編集: 複数ファイルを対象に一括検索と置換 /すべての画像をリサイズ / 表の行全体と列を転置 / 表をテキストに変換...
🧹 簡単クリーン:余分なスペース / セクション区切り / テキストボックス / ハイパーリンクをすばやく削除 /さらに多くの削除ツールは「削除」グループでご利用いただけます...
➕ クリエイティブ挿入: 千の区切り文字を挿入 / チェックボックス / ラジオボタン / QRコード / バーコード / 複数の画像 / 詳細は「挿入」グループで発見...
🔍 高精度な選択: 特定のページや表、図形、見出し段落などをピンポイント選択 /さらに多くの 選択 機能でナビゲーションを強化...
⭐ スター強化: 任意の範囲へナビゲーション / 定型テキストの自動挿入 / 文書ウィンドウ間の切り替え /11 種の変換ツール...
🌍 40以上の言語に対応: Kutoolsはあなたの言語でお使いいただけます ― 英語、スペイン語、ドイツ語、フランス語、中国語など40言語以上に対応！
✨ Kutools for Office –1回のインストールで5つのパワフルツールが使えます！
Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint を含む
📦5つのツール全てが1つのスイートに | 🔗 Microsoft Officeとシームレスに統合 | ⚡ 保存時間・生産性をすぐにアップ
最高のオフィス生産性ツール
Kutools for Word - 100+ のツールでWordをよりパワフルに
- 🤖 Kutools AI機能: AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ / スーパー トランスレート / AI編集 / AI校正
- 📘 文書マスター: ページの分割 / 文書の結合 / 一括PDF変換
- ✏ テキスト編集: 一括検索と置換 /すべての画像をリサイズ
- 🧹 簡単クリーン:余分なスペースを削除 / セクション区切りを削除
- ➕ クリエイティブ挿入: 千の区切り文字を挿入 / チェックボックスを挿入 / QRコードを作成
- 🌍 40以上の言語に対応: Kutoolsはあなたの言語でお使いいただける ―40以上の言語をサポート！