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
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 Kategorie wählen 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:
