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 ...
