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