Do I need to do this in a word document from the same folder I want to convert or any new word document that I start? -Tried both options and none is working but I am also not getting any error messages
Jak wsadowo konwertować dokumenty Word do pliku txt?
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
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:
Zalecane narzędzia zwiększające produktywność programu Word
Kutools For Word - więcej niż 100 zaawansowanych funkcji dla programu Word, oszczędzaj 50% czasu
- Skomplikowane i powtarzalne operacje można wykonać jednorazowo w ciągu kilku sekund.
- Wstaw wiele obrazów w folderach do dokumentu programu Word jednocześnie.
- Scalaj i łącz wiele plików programu Word w folderach w jeden z żądaną kolejnością.
- Podziel bieżący dokument na oddzielne dokumenty według nagłówka, podziału sekcji lub innych kryteriów.
- Konwertuj pliki między Doc i Docx, Docx i PDF, zbiór narzędzi do typowych konwersji i zaznaczania, i tak dalej ...