Wie konvertiert man Word-Dokumente im Batch in TXT-Dateien?
Dieser Artikel beschreibt, wie Sie alle Word-Dokumente in einem bestimmten Ordner per Batch in separate TXT-Dateien in Word konvertieren.
Batch-Konvertierung von Word-Dokumenten in TXT-Dateien mit VBA
Batch-Konvertierung von Word-Dokumenten in TXT-Dateien mit VBA
Der folgende VBA-Code kann helfen, alle Word-Dokumente in einem bestimmten Ordner auf einmal in TXT-Dateien zu konvertieren. Gehen Sie wie folgt vor.
1. Drücken Sie in einem Word-Dokument die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul und kopieren Sie den folgenden Code in das Modulfenster.
VBA-Code: Batch-Konvertierung von Word-Dokumenten in TXT-Dateien
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. Drücken Sie die Taste F5, um den Code auszuführen.
4. Wählen Sie im Durchsuchen-Fenster den Ordner aus, der die Word-Dokumente enthält, die Sie in TXT-Dateien konvertieren möchten, und klicken Sie auf die Schaltfläche OK. Siehe Screenshot:
Dann können Sie sehen, dass alle Dokumente im ausgewählten Ordner auf einmal in TXT-Dateien konvertiert werden. Siehe Screenshot:
Die besten Produktivitätstools für das Büro
Kutools für Word – Steigern Sie Ihr Word-Erlebnis mit über 100 bemerkenswerten Funktionen!
🤖 Kutools AI-Features: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI Korrekturlesen...
📘 Dokumenten-Beherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelweise Konvertierung nach PDF...
✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen über mehrere Dateien / Alle Bilder skalieren / Tabellenzeilen und -spalten transponieren / Tabelle in Text umwandeln...
🧹 Mühelos bereinigen: Entfernen Sie ganz einfach zusätzliche Leerzeichen / Abschnittsumbrüche / Textfelder / Hyperlinks / Weitere Entfernen-Werkzeuge finden Sie in der Gruppe Entfernen...
➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfelder / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie weitere Funktionen im Bereich Einfügen...
🔍 Präzise Auswahl: Bestimmen Sie gezielt bestimmte Seiten / Tabellen / Formen / Überschriftenabsätze / Verbessern Sie die Navigation mit weiteren Auswählen -Funktionen...
⭐ Herausragende Verbesserungen: Navigieren Sie zu beliebigen Standorten / Automatisches Einfügen von wiederkehrendem Text / Umschalten zwischen Dokument-Fenstern /11 Konvertierungswerkzeuge...
🌍 Unterstützt über40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und mehr als40 weitere!

Die besten Produktivitätstools für das Büro
Kutools für Word – 100+ Werkzeuge für Word
- 🤖 Kutools AI-Features: KI-Assistent / Echtzeit-Assistent / Super Polieren / Super Übersetzen / KI-Redaktion / KI Korrekturlesen
- 📘 Dokumenten-Beherrschung: Seiten teilen / Dokumente zusammenführen / Stapelweise Konvertierung nach PDF
- ✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen / Alle Bilder skalieren
- 🧹 Mühelos bereinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche entfernen
- ➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen einfügen / QR-Codes erstellen
- 🌍 Unterstützt über40 Sprachen: Kutools spricht Ihre Sprache – mehr als40 Sprachen werden unterstützt!