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
Hur batchkonverterar jag Word-dokument till txt-fil?
Den här artikeln talar om hur man konverterar alla Word-dokument i en specifik mapp till separata TXT-filer i Word.
Batchkonvertera Word-dokument till txt-filer med VBA
Batchkonvertera Word-dokument till txt-filer med VBA
Nedanstående VBA-kod kan hjälpa till att konvertera alla Word-dokument i en viss mapp till txt-filer samtidigt. Gör så här.
1. I Word-dokumentet trycker du på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna, kopiera sedan koden nedan till modulfönstret.
VBA-kod: Batchkonvertera Word-dokument till 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. tryck på F5 för att köra koden.
4. I Bläddra välj mappen som innehåller Word-dokument som du kommer att konvertera till txt-filer och klicka på OK knapp. Se skärmdump:
Då kan du se alla dokument i den valda mappen konverteras till txt-filer på en gång. Se skärmdump:
Rekommenderade Word-produktivitetsverktyg
Kutools för Word - Mer än 100 avancerade funktioner för Word, spara 50% tid
- Komplicerade och upprepade operationer kan göras engångsbehandling på några sekunder.
- Infoga flera bilder över mappar i Word-dokumentet samtidigt.
- Slå ihop och kombinera flera Word-filer över mappar till en med önskad ordning.
- Dela upp det aktuella dokumentet i separata dokument enligt rubrik, avsnittbrytning eller andra kriterier.
- Konvertera filer mellan Doc och Docx, Docx och PDF, samling verktyg för vanliga konverteringar och val, och så vidare ...