W tym artykule omówiono, jak wsadowo konwertować wszystkie dokumenty programu Word w określonym folderze na oddzielne pliki TXT w programie Word.
Batch konwertuj dokumenty Word na pliki txt za pomocą VBA
Poniższy kod VBA może pomóc w jednoczesnej konwersji wszystkich dokumentów Word w określonym folderze na pliki txt. Wykonaj następujące czynności.
1. W dokumencie programu Word naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł, a następnie skopiuj poniższy kod do okna modułu.
Kod VBA: Batch konwertuj dokumenty Word na pliki txt
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. wciśnij F5 klucz do uruchomienia kodu.
4. w Przeglądaj wybierz folder zawierający dokumenty programu Word, które skonwertujesz na pliki txt, i kliknij OK przycisk. Zobacz zrzut ekranu:
Następnie możesz zobaczyć, że wszystkie dokumenty w wybranym folderze są konwertowane na pliki txt jednocześnie. Zobacz zrzut ekranu:
