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

Hogyan lehet kötegelten konvertálni a Word dokumentumokat txt fájlokká?

Ez a cikk arról szól, hogyan lehet egy adott mappában lévő összes Word-dokumentumot kötegelt módon konvertálni a Word TXT-fájljainak elválasztására.

A Word dokumentumok kötegelt konvertálása txt fájlokká a VBA segítségével


A Word dokumentumok kötegelt konvertálása txt fájlokká a VBA segítségével

Az alábbi VBA-kód segíthet egy adott mappában található összes Word-dokumentum egyszerre txt fájlokká konvertálásában. Kérjük, tegye a következőket.

1. A Word dokumentumban nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok, majd másolja a kód alatt a Modul ablakba.

VBA kód: A Word dokumentumok kötegelt konvertálása txt fájlokká

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. megnyomni a F5 gombot a kód futtatásához.

4. Ban,-ben Tallózás ablakban válassza ki a mappát, amely tartalmazza a txt fájlokká konvertálandó Word dokumentumokat, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

Ekkor láthatja, hogy a kiválasztott mappában lévő összes dokumentum egyszerre konvertálódik txt fájlokká. Lásd a képernyőképet:


Ajánlott Word-termelékenységi eszközök

 

Kutools for Word - Több mint 100 speciális szolgáltatás a Word számára, takarítson meg 50% időt

  • A bonyolult és ismételt műveletek másodpercek alatt egyszeri feldolgozást végezhetnek.
  • Egyszerre több képet illesszen be a mappákba a Word dokumentumba.
  • Egyesítsen és egyesítsen több Word-fájlt a mappák között a kívánt sorrenddel.
  • Bontja az aktuális dokumentumot külön dokumentumokká címsor, szakasz törés vagy egyéb szempontok szerint.
  • Fájlok konvertálása a Doc és a Docx, a Docx és a PDF között, a közös konverzióhoz és kiválasztáshoz szükséges eszközök gyűjteménye stb.
A megjegyzések rendezése szerint
Hozzászólások (22)
Az 5-t az 5-ből kiértékelte · 1 értékelés
A weboldal moderátora ezt a megjegyzést minimalizálta
A költészet híve vagyok. Több mint 700 szóösszetételt kellett txt-be konvertálnom. A szubrutinodnak köszönhetően rövid időn belül sikerült.
Köszönöm
A weboldal moderátora ezt a megjegyzést minimalizálta
Meg lehet adni ugyanazt a kódot, amikor a legújabb Word-öt használom Macen? Az 5948-as futásidejű hibaüzenetet kapom, és erre a szakaszra mutat a hibakeresés: Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)••••ˇˇˇˇ
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm! Ez rendkívül hasznos
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan sikerült működésre bírni?
A weboldal moderátora ezt a megjegyzést minimalizálta
Nekem nem működik, van ötleted, hogy miért?
Meg kell ezt tennem egy Word dokumentumban, amely ugyanabból a mappából származik, amelyet konvertálni akarok, vagy bármilyen új Word dokumentumban, amelyet elindítok? - Mindkét lehetőséget kipróbáltam, de egyik sem működik, de nem kapok hibaüzenetet sem
A weboldal moderátora ezt a megjegyzést minimalizálta
Windows 10-et és Microsoft Office 2016-ot használok
A weboldal moderátora ezt a megjegyzést minimalizálta
Módosítsa az xFileStr = Dir(xFolder & "\*.doc") értékét xFileStr = Dir(xFolder & "\*.docx") értékre, mivel feltételezem, hogy újabb Word fájlformátumot használ.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, a kód működik, de a végén „Runtime error 91” jelenik meg, néhány fájlomban objektumok vannak. Valami ötlet, hogyan tudnám ezt megjavítani?
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm szépen! Úgy működött, mint egy varázs!
A weboldal moderátora ezt a megjegyzést minimalizálta
Gyorsan és tökéletesen működött egy .docx fájlokkal teli mappán. Köszönöm/
A weboldal moderátora ezt a megjegyzést minimalizálta
A szkript nekem remekül működik, de csak egy mappához. Van valami mód az összes almappa felvételére?
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönet érte – éppen magam akartam kódolni valamit, amikor arra gondoltam: "Hé, lehet, hogy valaki megtette már ezt?" Volt, és elegánsabban üzleteltél, mint én tettem volna. Köszönöm a fáradozását.
A weboldal moderátora ezt a megjegyzést minimalizálta
A fenti szkriptet használtam a dokumentumok koreai nyelvű kötegelt konvertálásához, de a szkript nem működött. Amikor elfáradtam a kódolás megváltoztatásában, tudna valaki segíteni ebben a hibában?
A weboldal moderátora ezt a megjegyzést minimalizálta
KELL őket konvertálni elválasztott szövegfájlokká, ez még mindig lehetséges.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez remekül sikerült! Kösz!
Az 5-t az 5-ből kiértékelte
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Köszönjük ezt a bejegyzést. Amikor megnyomom a "Futtatás" gombot, hibaüzenetet kapok: "Fordítási hiba: Érvénytelen külső eljárás." Ez az, hogy a doc vagy a docx kiterjesztést használom (lehet, hogy nem kapcsolódik egymáshoz, de mindkettőt kipróbáltam.) Kérem, tudna segíteni? Fogalmam sincs, hogyan kell kódot használni... és tényleg rengeteg dokumentumot kell konvertálnom. Köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Durga!
A kód jól működik az én esetemben.
Kérjük, győződjön meg arról, hogy a Modul (Kód) ablak csak a bejegyzésben megadott VBA kódot tartalmazza.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, ez tökéletesen működik. Van mód a TXT más kódolási formátumának kiválasztására (például Windows helyett UTF-8)?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Simon,
A következő VBA-kód segít a megadott mappában lévő összes Word-dokumentum UTF-8 .txt fájlokká konvertálásában
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
A weboldal moderátora ezt a megjegyzést minimalizálta
Sok köszönet
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm szépen ! La convert se fait très bien
A weboldal moderátora ezt a megjegyzést minimalizálta
Vielen Dank, das ist wirklich sehr hilfreich! Ich werde auf Deine Seite bei der nächsten Gelegenheit verweisen.
Köszöntés
Uli
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi