Note: The other languages of the website are Google-translated. Back to English

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 dla programu Word — ponad 100 zaawansowanych funkcji 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 ...
Sortuj komentarze według
Komentarze (22)
Znamionowy 5 z 5 · 1 oceny
Ten komentarz został zminimalizowany przez moderatora na stronie
Jestem fanem poezji. Musiałem przekonwertować ponad 700 kompozycji słów do formatu txt. Dzięki twojemu podprogramowi udało mi się to zrobić w mgnieniu oka.
Dziękuję Ci
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy byłoby możliwe udostępnienie tego samego kodu, gdy używam najnowszego programu Word na komputerze Mac? Otrzymuję błąd Run-Time 5948 i debugowanie wskazuje na tę sekcję: Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)••••ˇˇˇˇ
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję Ci! Jest to niezwykle pomocne
Ten komentarz został zminimalizowany przez moderatora na stronie
Jak udało ci się to uruchomić?
Ten komentarz został zminimalizowany przez moderatora na stronie
Nie działa dla mnie, jakieś pomysły dlaczego?
Czy muszę to zrobić w dokumencie Word z tego samego folderu, który chcę przekonwertować, lub w dowolnym nowym dokumencie Word, który zaczynam? -Wypróbowałem obie opcje i żadna nie działa, ale nie otrzymuję również żadnych komunikatów o błędach
Ten komentarz został zminimalizowany przez moderatora na stronie
Używam systemu Windows 10 i Microsoft Office 2016
Ten komentarz został zminimalizowany przez moderatora na stronie
Zmień xFileStr = Dir(xFolder & "\*.doc") na xFileStr = Dir(xFolder & "\*.docx"), ponieważ zakładam, że masz nowszy format plików tekstowych.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, kod działa, ale na końcu pojawia się komunikat „Runtime error 91”, niektóre z moich plików mają obiekty. Jakiś pomysł, jak mogę to naprawić?
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję bardzo! Działał jak urok!
Ten komentarz został zminimalizowany przez moderatora na stronie
Działał szybko i idealnie na folderze pełnym plików .docx. Dziękuję ci/
Ten komentarz został zminimalizowany przez moderatora na stronie
Skrypt działa u mnie świetnie, ale tylko dla jednego folderu. Czy istnieje sposób na uwzględnienie wszystkich podfolderów?
Ten komentarz został zminimalizowany przez moderatora na stronie
Dzięki za to - miałem zamiar sam coś zakodować, kiedy pomyślałem: "Hej, może ktoś już to zrobił?" Miałeś, i to o wiele bardziej elegancko, niż bym to zrobił. Dziękuję za ciężką pracę.
Ten komentarz został zminimalizowany przez moderatora na stronie
Użyłem powyższego skryptu do wsadowej konwersji dokumentów w języku koreańskim, ale skrypt nie działał. Kiedy jestem zmęczony zmianą kodowania, czy ktoś może mi pomóc z tym błędem?
Ten komentarz został zminimalizowany przez moderatora na stronie
POTRZEBUJĘ ich konwersji na rozdzielane pliki tekstowe, jeśli jest to nadal możliwe.
Ten komentarz został zminimalizowany przez moderatora na stronie
To działało na ucztę! Dziękuję!
Znamionowy 5 z 5
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam, dziękuję za ten post. Kiedy klikam „uruchom”, pojawia się komunikat o błędzie: „Błąd kompilacji: nieprawidłowa procedura zewnętrzna”. To jest, czy używam doc lub rozszerzenia docx (może niepowiązane, ale próbowałem obu). Proszę, czy możesz pomóc? Nie mam pojęcia, jak używać kodu... i naprawdę muszę przekonwertować mnóstwo dokumentów. Dziękuję Ci!
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Durga,
Kod działa dobrze w moim przypadku.
Upewnij się, że okno Moduł (Kod) zawiera tylko kod VBA podany w poście.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, to działa idealnie. Czy istnieje sposób, aby wybrać inny format kodowania TXT (na przykład UTF-8 zamiast Windows)?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Simon,
Poniższy kod VBA pomaga przekonwertować wszystkie dokumenty programu Word w określonym folderze na pliki UTF-8 .txt
Sub ConvertDocumentsToTxt()
'Updated by Extendoffice 20201031
    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, ".")
            xDoc.SaveAs Left(xFilePath, xIndex - 1) & ".txt", FileFormat:=wdFormatText, AddToRecentFiles:=False, Encoding:=msoEncodingUTF8
            xDoc.Close True
        End If
        xFileStr = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Wielkie dzięki
Ten komentarz został zminimalizowany przez moderatora na stronie
Merci beaucoup! La Conversion se fait très bien
Ten komentarz został zminimalizowany przez moderatora na stronie
Vielen Dank, das ist wirklich sehr hilfreich! Ich werde auf Deine Seite bei der nächsten Gelegenheit verweisen.
Powitanie
Uli
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL