Do I need to do this in a word document from the same folder I want to convert or any new word document that I start? -Tried both options and none is working but I am also not getting any error messages
Sådan batch konverteres Word-dokumenter til txt-fil?
Denne artikel taler om, hvordan man batchkonvertere alle Word-dokumenter i en bestemt mappe til separate TXT-filer i Word.
Batchkonvertere Word-dokumenter til txt-filer med VBA
Batchkonvertere Word-dokumenter til txt-filer med VBA
Nedenstående VBA-kode kan hjælpe med at konvertere alle Word-dokumenter i en bestemt mappe til txt-filer på én gang. Gør som følger.
1. I Word-dokumentet skal du trykke på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler, kopier derefter nedenstående kode til modulvinduet.
VBA-kode: Batchkonverter Word-dokumenter til txt-filer
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. Tryk på F5 nøgle for at køre koden.
4. i Gennemse vindue, vælg mappen, der indeholder Word-dokumenter, du vil konvertere til txt-filer, og klik på OK knap. Se skærmbillede:
Derefter kan du se alle dokumenter i den valgte mappe konverteres til txt-filer på én gang. Se skærmbillede:
Anbefalede Word-produktivitetsværktøjer
Kutools til Word - Mere end 100 avancerede funktioner til Word, spar din 50% tid
- Komplicerede og gentagne operationer kan udføres engangsbehandling på få sekunder.
- Indsæt flere billeder på tværs af mapper i Word-dokumentet på én gang.
- Flet og kombiner flere Word-filer på tværs af mapper i en med den ønskede rækkefølge.
- Opdel det aktuelle dokument i separate dokumenter efter overskrift, sektionsskift eller andre kriterier.
- Konverter filer mellem Doc og Docx, Docx og PDF, samling af værktøjer til almindelige konverteringer og markering osv. ...