Hoe Word-documenten batchgewijs naar txt-bestand te converteren?

Auteur: Siluvia Laatst gewijzigd: 2024-08-09

Dit artikel gaat over het batchgewijs converteren van alle Word-documenten in een specifieke map naar afzonderlijke TXT-bestanden in Word.

Batch converteer Word-documenten naar txt-bestanden met VBA

Batch converteer Word-documenten naar txt-bestanden met VBA

De onderstaande VBA-code kan helpen om alle Word-documenten in een specifieke map in één keer naar txt-bestanden te converteren. Ga als volgt te werk.

1. Druk in Word-document op anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Moduleen kopieer vervolgens onderstaande code naar het modulevenster.

VBA-code: Batch converteer Word-documenten naar txt-bestanden

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

VBA-venster met de bovenstaande code in een module geplakt

3. druk de F5 sleutel om de code uit te voeren.

4. In de Blader selecteer de map met Word-documenten die u naar txt-bestanden wilt converteren en klik op het OK knop. Zie screenshot:

Bladervenster

Vervolgens kunt u zien dat alle documenten in de geselecteerde map in één keer naar txt-bestanden worden geconverteerd. Zie screenshot:

Alle documenten in de geselecteerde map worden geconverteerd naar txt-bestanden

Beste Office-productiviteitstools

Kutools for Word - Verbeter uw woordervaring met Over 100 Opmerkelijke kenmerken!

🤖 Kutools AI-functies: Inhoud genereren / Herschrijf tekst / Vraag en antwoord documenteren / Krijg snelle antwoorden / Documenten vertalen / Pools document (formaat behouden)...

📘 Documentbeheersing: Pagina's splitsen / Voeg documenten samen / Selectie exporteren in verschillende formaten (PDF/TXT/DOC/HTML...) / Batchconversie naar PDF...

✏ Inhoud bewerken: Batch zoeken en vervangen in meerdere bestanden / Formaat van alle afbeeldingen wijzigen / Tabelrijen en -kolommen transponeren / Converteer tabel naar tekst...

🧹 Moeiteloos schoon: Veeg weg Extra ruimtes / Sectie-onderbrekingen / Tekstvakken / hyperlinks / Ga voor meer verwijdergereedschappen naar de verwijderen groep...

➕ Creatieve invoegingen: Invoegen Duizend scheidingstekens / Vink vakjes aan / Radio knoppen / QR Code / Barcode / Meerdere afbeeldingen / Ontdek meer in de Invoegen groep...

???? Precisieselecties: Vaststellen Specifieke pagina's / Tafels / Vormen / Kopparagrafen / Verbeter de navigatie met meer kies functionaliteiten...

⭐ Sterverbeteringen: Navigeer naar elke locatie / Automatisch herhaalde tekst invoegen / Schakelen tussen documentvensters / 11 Camper ombouw Tools...