Skip to main content

Kutools voor Office — Eén Suite. Vijf Tools. Verwezenlijkt Meer.

Hoe kunt u Word-documenten in bulk converteren naar txt-bestanden?

Author Siluvia Last modified

Dit artikel gaat over hoe u alle Word-documenten in een specifieke map in bulk kunt converteren naar afzonderlijke TXT-bestanden in Word.

Word-documenten in bulk converteren naar txt-bestanden met VBA

Word-documenten in bulk converteren naar txt-bestanden met VBA

De onderstaande VBA-code kan helpen om alle Word-documenten in een specifieke map tegelijkertijd te converteren naar txt-bestanden. Volg de onderstaande stappen.

1. Druk in het Word-document op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module, en kopieer vervolgens de onderstaande code naar het Module-venster.

VBA-code: Word-documenten in bulk converteren 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 window with the above code pasted into a module

3. Druk op de F5-toets om de code uit te voeren.

4. Selecteer in het Bladeren-venster de map met de Word-documenten die u wilt converteren naar txt-bestanden en klik op de knop OK. Zie screenshot:

Browse window

Vervolgens kunt u zien dat alle documenten in de geselecteerde map tegelijkertijd zijn geconverteerd naar txt-bestanden. Zie screenshot:

All documents in selected folder are converted to txt files

Beste Office-productiviteitstools

Kutools for Word – Til uw Word-ervaring naar een hoger niveau met meer dan 100 indrukwekkende functies!

🤖 Kutools AI Features: AI Assistent / Realtime Assistent / Super Polish (Opmaak behouden) / Super Vertalen (Opmaak behouden) / AI Redactie / AI Proeflezen...

📘 Documentbeheer: Pagina's opsplitsen / Documenten samenvoegen / Oplossing exporteren in diverse opmaak (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...

✏ Tekst bewerken: Batch Zoeken en Vervangen in meerdere Bestanden / Formaat Wijzigen van alle Afbeeldingen / Tabel Transponeren (Rijen en Kolommen) / Tabel naar tekst converteren...

🧹 Moeiteloos schoonmaken: Veeg extra Spaties weg / Sectie-einden / Tekstvak / Hyperlinks / Voor meer Verwijderen-tools, bezoek de Verwijderen-groep...

➕ Creatieve invoegingen: Duizendtalscheidingsteken invoegen / Selectievakje / Keuzerondje / QR-code / Barcode / Meerdere Afbeeldingen / Ontdek meer bij de Invoegen-groep...

🔍 Precieze Selecties: Specifieke pagina's selecteren / Referentietabel / Vorm / Kopalinea / Verbeter navigatie met meer Selecteren -functies...

⭐ Ster-upgrades: Navigeer naar elk Bereik / Herhaal tekst automatisch invoegen / Wissel tussen Document-vensters /11 Conversie-tools...

🌍 Ondersteunt meer dan40 Talen: Gebruik Kutools in uw gewenste taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 anderen!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Wilt u deze functies proberen? Download Kutools for Word nu! 🚀
 

✨ Kutools for Office – Één installatie, vijf krachtige tools!

Inclusief Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Krijg alle5 tools in één pakket | 🔗 Naadloze integratie met Microsoft Office | ⚡ Bespaar tijd en verhoog direct uw productiviteit

Beste Office-productiviteitstools

Kutools for Word – 100+ tools voor Word

Gratis downloaden Nu kopen Lees meer over Kutools