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