Word文書をtxtファイルにバッチ変換する方法は?
この記事では、特定のフォルダー内のすべてのWord文書をWord内の個別のTXTファイルにバッチ変換する方法について説明しています。
VBAを使用してWord文書をtxtファイルにバッチ変換する
VBAを使用してWord文書をtxtファイルにバッチ変換する
以下のVBAコードは、特定のフォルダー内のすべてのWord文書を一度にtxtファイルに変換するのに役立ちます。 次のようにしてください。
1. Word文書で、を押します。 他の + 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。 の中に ブラウズ ウィンドウで、txtファイルに変換するWord文書が含まれているフォルダを選択し、をクリックします。 OK ボタン。 スクリーンショットを参照してください:

次に、選択したフォルダ内のすべてのドキュメントが一度にtxtファイルに変換されるのを確認できます。 スクリーンショットを参照してください:

推奨される単語生産性ツール
- 複雑で繰り返される操作は、数秒でXNUMX回の処理で実行できます。
- 複数の画像をフォルダ間でWord文書に一度に挿入します。
- フォルダ間で複数のWordファイルをマージして、希望の順序でXNUMXつに結合します。
- 見出し、セクション区切り、またはその他の基準に従って、現在のドキュメントを個別のドキュメントに分割します。
- DocとDocx、DocxとPDFの間でファイルを変換し、一般的な変換と選択のためのツールのコレクションなど...