Note: The other languages of the website are Google-translated. Back to English

Wie konvertiere ich Word-Dokumente stapelweise in eine TXT-Datei?

In diesem Artikel wird erläutert, wie Sie alle Word-Dokumente in einem bestimmten Ordner stapelweise 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 dazu beitragen, alle Word-Dokumente in einem bestimmten Ordner gleichzeitig in txt-Dateien zu konvertieren. Bitte gehen Sie wie folgt vor.

1. Drücken Sie im Word-Dokument die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > ModulKopieren Sie dann 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 Schlüssel zum Ausführen des Codes.

4. In dem Entdecken Wählen Sie im Fenster den Ordner mit Word-Dokumenten aus, die Sie in TXT-Dateien konvertieren möchten, und klicken Sie auf OK Taste. Siehe Screenshot:

Dann können Sie sehen, dass alle Dokumente im ausgewählten Ordner gleichzeitig in txt-Dateien konvertiert werden. Siehe Screenshot:


Empfohlene Word-Produktivitätswerkzeuge

 

Kutools für Word - Mehr als 100 erweiterte Funktionen für Word, sparen Sie 50% Zeit

  • Komplizierte und wiederholte Vorgänge können in Sekunden einmalig verarbeitet werden.
  • Fügen Sie mehrere Bilder über Ordner hinweg gleichzeitig in ein Word-Dokument ein.
  • Führen Sie mehrere Word-Dateien in Ordnern zu einer gewünschten Reihenfolge zusammen.
  • Teilen Sie das aktuelle Dokument nach Überschrift, Abschnittswechsel oder anderen Kriterien in separate Dokumente auf.
  • Konvertieren Sie Dateien zwischen Doc und Docx, Docx und PDF, eine Sammlung von Tools für allgemeine Konvertierungen und Auswahl usw.
Kommentare (22)
Bewertet 5 aus 5 · 1 Bewertungen
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich bin ein Fan von Poesie. Ich musste mehr als 700 Wortkompositionen in txt umwandeln. Dank Ihres Unterprogramms habe ich es in kürzester Zeit geschafft.
Vielen Dank.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wäre es möglich, denselben Code bereitzustellen, wenn ich das neueste Word auf einem Mac verwende? Ich erhalte den Laufzeitfehler 5948 und Debug-Punkte zu diesem Abschnitt: Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)••••ˇˇˇˇ
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke! Dies ist äußerst hilfreich
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie haben Sie es zum Laufen gebracht?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Funktioniert bei mir nicht, irgendwelche Ideen warum?
Muss ich dies in einem Word-Dokument aus demselben Ordner tun, den ich konvertieren möchte, oder in einem neuen Word-Dokument, das ich starte? -Versuchte beide Optionen und keine funktioniert, aber ich erhalte auch keine Fehlermeldungen
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich verwende Windows 10 und Microsoft Office 2016
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ändern Sie xFileStr = Dir(xFolder & "\*.doc") in xFileStr = Dir(xFolder & "\*.docx"), da ich annehme, dass Sie ein neueres Word-Dateiformat haben.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, der Code funktioniert, aber am Ende erhalte ich 'Laufzeitfehler 91', einige meiner Dateien haben Objekte. Irgendeine Idee, wie ich das beheben kann?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank! Lief wie am Schnürchen!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Arbeitete schnell und perfekt an einem Ordner voller .docx-Dateien. Ich danke dir/
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das Skript funktioniert super für mich, aber nur für einen Ordner. Gibt es eine Möglichkeit, alle Unterordner einzuschließen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke dafür - ich wollte gerade selbst etwas codieren, als ich dachte: "Hey, vielleicht hat das schon jemand gemacht?" Du hattest einen Handel, der eleganter war, als ich es getan hätte. Vielen Dank für Ihre harte Arbeit.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe das obige Skript verwendet, um Dokumente in Koreanisch stapelweise zu konvertieren, aber das Skript hat nicht funktioniert. Wenn ich müde bin, die Codierung zu ändern, kann mir jemand bei diesem Fehler helfen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
ICH BRAUCHE sie, um sie in Textdateien mit Trennzeichen zu konvertieren, ist dies noch möglich.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das hat super funktioniert! Vielen Dank!
Bewertet 5 aus 5
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, danke für diesen Beitrag. Wenn ich auf "Ausführen" drücke, erhalte ich eine Fehlermeldung: "Compile Error: Invalid Outside Procedure". Dies ist, ob ich die doc- oder die docx-Erweiterung verwende (vielleicht unabhängig, aber ich habe beides versucht). Können Sie mir bitte helfen? Ich habe keine Ahnung, wie man Code verwendet ... und muss wirklich eine Menge Dokumente konvertieren. Vielen Dank!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Durga,
Der Code funktioniert in meinem Fall gut.
Bitte stellen Sie sicher, dass das Fenster Modul (Code) nur den im Beitrag bereitgestellten VBA-Code enthält.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, das funktioniert einwandfrei. Gibt es eine Möglichkeit, ein anderes Codierungsformat für TXT auszuwählen (z. B. UTF-8 anstelle von Windows)?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Simon,
Der folgende VBA-Code hilft, alle Word-Dokumente in einem bestimmten Ordner in UTF-8-TXT-Dateien zu konvertieren
Sub ConvertDocumentsToTxt()
'Updated by Extendoffice 20201031
    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, ".")
            xDoc.SaveAs Left(xFilePath, xIndex - 1) & ".txt", FileFormat:=wdFormatText, AddToRecentFiles:=False, Encoding:=msoEncodingUTF8
            xDoc.Close True
        End If
        xFileStr = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Merci Beaucoup! La Bekehrung se fait très bien
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank, das ist wirklich sehr hilfreich! Ich werde auf Deine Seite bei der nächsten Gelegenheit verweisen.
Gruß
Uli
Es sind noch keine Kommentare vorhanden

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL