Hoe converteert u Word-documenten in batch naar TXT-bestanden?

Dit artikel laat u zien hoe u alle Word-documenten in een bepaalde map tegelijkertijd kunt omzetten naar afzonderlijke TXT-bestanden in Word.

Converteer Word-documenten in batch naar TXT-bestand met VBA

---

Converteer Word-documenten in batch naar TXT-bestand met VBA

De onderstaande VBA-code helpt u om alle Word-documenten in een specifieke map tegelijkertijd te converteren naar TXT-bestanden. Volg deze stappen.

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

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

VBA-code: Converteer Word-documenten in batch naar TXT-bestand

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 op de toets F5 om de code uit te voeren.

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

Vervolgens ziet u dat alle documenten in de geselecteerde map tegelijkertijd zijn geconverteerd naar TXT-bestanden. Zie de screenshot: