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