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

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

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

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:

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


Aanbevolen Word-productiviteitstools

 

Kutools For Word - Meer dan 100 geavanceerde functies voor Word, bespaar 50% tijd

  • Ingewikkelde en herhaalde bewerkingen kunnen een eenmalige verwerking in seconden worden uitgevoerd.
  • Voeg meerdere afbeeldingen in verschillende mappen tegelijk in een Word-document in.
  • Voeg meerdere Word-bestanden in mappen samen en combineer ze tot één met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten op basis van koptekst, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, enzovoort ...
Heb je vragen? Stel ze hier. (22)
Rated 5 uit 5 · 1 ratings
Deze opmerking is gemaakt door de moderator op de site
Ik ben een liefhebber van poëzie. Ik moest meer dan 700 woordcomposities naar txt converteren. Dankzij jouw subroutine heb ik het in een mum van tijd voor elkaar gekregen.
Bedankt
Deze opmerking is gemaakt door de moderator op de site
Zou het mogelijk zijn om dezelfde code te verstrekken als ik het nieuwste Word op een Mac gebruik? Ik krijg de Runtime-fout 5948 en debug-punten naar deze sectie: Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)••••ˇˇˇˇ
Deze opmerking is gemaakt door de moderator op de site
Dank u! Dit is zeer nuttig
Deze opmerking is gemaakt door de moderator op de site
Hoe heb je het werkend gekregen?
Deze opmerking is gemaakt door de moderator op de site
Werkt niet voor mij, enig idee waarom?
Moet ik dit doen in een Word-document uit dezelfde map die ik wil converteren of een nieuw Word-document dat ik start? - Beide opties geprobeerd en geen enkele werkt, maar ik krijg ook geen foutmeldingen
Deze opmerking is gemaakt door de moderator op de site
Ik gebruik Windows 10 en Microsoft Office 2016
Deze opmerking is gemaakt door de moderator op de site
Verander xFileStr = Dir(xFolder & "\*.doc") in xFileStr = Dir(xFolder & "\*.docx") aangezien ik aanneem dat je een nieuwere word-bestandsindeling hebt.
Deze opmerking is gemaakt door de moderator op de site
Hallo, de code werkt, maar aan het einde krijg ik 'Runtime error 91', sommige van mijn bestanden hebben objecten. Enig idee hoe ik dit kan oplossen?
Deze opmerking is gemaakt door de moderator op de site
Heel erg bedankt! Werkte als een tierelier!
Deze opmerking is gemaakt door de moderator op de site
Werkte snel en perfect op een map vol .docx bestanden. Dankjewel/
Deze opmerking is gemaakt door de moderator op de site
Het script werkt prima voor mij, maar alleen voor één map. Is er een manier om alle submappen op te nemen?
Deze opmerking is gemaakt door de moderator op de site
Bedankt hiervoor - ik wilde net zelf iets coderen toen ik dacht: "Hé, misschien heeft iemand dit al gedaan?" Dat had je, en een deal die eleganter was dan ik zou hebben gedaan. Bedankt voor je harde werk.
Deze opmerking is gemaakt door de moderator op de site
Ik heb het bovenstaande script gebruikt om documenten in het Koreaans batchgewijs te converteren, maar het script werkte niet. Als ik moe ben om de codering te wijzigen, kan iemand me dan helpen met deze fout?
Deze opmerking is gemaakt door de moderator op de site
Ik heb ze NODIG om te converteren naar tekstbestanden met scheidingstekens, is dit nog steeds mogelijk.
Deze opmerking is gemaakt door de moderator op de site
Dat werkte een traktatie! Bedankt!
Rated 5 uit 5
Deze opmerking is gemaakt door de moderator op de site
Hallo, bedankt voor dit bericht. Wanneer ik op "uitvoeren" klik, krijg ik een foutmelding: "Compileerfout: ongeldige externe procedure." Dit is of ik de doc- of de docx-extensie gebruik (misschien niet gerelateerd, maar ik heb beide geprobeerd.) Kunt u alstublieft helpen? Ik heb geen idee hoe ik code moet gebruiken .... en moet echt heel veel documenten converteren. Dank je!
Deze opmerking is gemaakt door de moderator op de site
Hallo Durga,
De code werkt in mijn geval goed.
Zorg ervoor dat het modulevenster (code) alleen de VBA-code bevat die in de post wordt verstrekt.
Deze opmerking is gemaakt door de moderator op de site
Hallo, dit werkt perfect. Is er een manier om een ​​ander coderingsformaat van de TXT te kiezen (UTF-8 in plaats van Windows bijvoorbeeld)?
Deze opmerking is gemaakt door de moderator op de site
Hallo Simon,
De volgende VBA-code helpt bij het converteren van alle Word-documenten in een opgegeven map naar UTF-8 .txt-bestanden
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
Deze opmerking is gemaakt door de moderator op de site
Erg bedankt
Deze opmerking is gemaakt door de moderator op de site
Heel erg bedankt ! La conversie se fait très bien
Deze opmerking is gemaakt door de moderator op de site
Vielen Dank, das ist wirklich sehr hilfreich! Ich werde auf Deine Seite bei der nächsten Gelegenheit verweisen.
Groet
Uli
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL