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