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

Kako paketno pretvoriti Wordove dokumente v datoteko txt?

Ta članek govori o tem, kako paketno pretvoriti vse Wordove dokumente v določeni mapi v ločene datoteke TXT v Wordu.

Paketno pretvorite Wordove dokumente v datoteke txt z VBA


Paketno pretvorite Wordove dokumente v datoteke txt z VBA

Spodnja koda VBA vam lahko pomaga pretvoriti vse Wordove dokumente v določeni mapi v datoteke txt hkrati. Naredite naslednje.

1. V Wordovem dokumentu pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli, nato kopirajte spodnjo kodo v okno modula.

Koda VBA: paketno pretvorite Wordove dokumente v datoteke 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. Pritisnite F5 tipko za zagon kode.

4. V Ljubljani Brskanje izberite mapo, v kateri so Wordovi dokumenti, ki jih želite pretvoriti v datoteke txt, in kliknite OK . Oglejte si posnetek zaslona:

Nato lahko vidite, da se vsi dokumenti v izbrani mapi hkrati pretvorijo v datoteke txt. Oglejte si posnetek zaslona:


Priporočena orodja za produktivnost besed

 

Kutools za Word - Več kot 100 naprednih funkcij za Word, prihranite 50% časa

  • Zapletene in ponavljajoče se operacije je mogoče enkrat obdelati v nekaj sekundah.
  • V Wordov dokument hkrati vstavite več slik v mape.
  • Združite in združite več datotek Word v mapah v eno z želenim vrstnim redom.
  • Trenutni dokument razdelite na ločene dokumente glede na naslov, prelom odseka ali druga merila.
  • Pretvarjanje datotek med dokumenti Doc in Docx, Docx in PDF, zbirka orodij za pogoste pretvorbe in izbiro itd. ...
Komentarji (22)
Ocenjeno 5 iz 5 · 1 ocene
Ta komentar je moderator na spletnem mestu minimiziral
Sem ljubitelj poezije. Več kot 700 besednih sestavkov sem moral pretvoriti v txt. Zahvaljujoč vašemu podprogramu mi je to uspelo v kratkem času.
Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Ali bi bilo mogoče zagotoviti isto kodo, ko uporabljam najnovejši Word na Macu? Dobim napako med izvajanjem 5948 in točke za odpravljanje napak na ta razdelek: Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)•••••ˇˇˇˇ
Ta komentar je moderator na spletnem mestu minimiziral
Hvala vam! To je zelo koristno
Ta komentar je moderator na spletnem mestu minimiziral
Kako vam je uspelo?
Ta komentar je moderator na spletnem mestu minimiziral
Ne deluje zame, imate kakšno idejo zakaj?
Ali moram to narediti v Wordovem dokumentu iz iste mape, ki jo želim pretvoriti, ali v katerem koli novem Wordovem dokumentu, ki ga zaženem? - Preizkusil sem obe možnosti in nobena ne deluje, vendar tudi ne prejemam nobenih sporočil o napaki
Ta komentar je moderator na spletnem mestu minimiziral
Uporabljam Windows 10 in Microsoft Office 2016
Ta komentar je moderator na spletnem mestu minimiziral
Spremenite xFileStr = Dir(xFolder & "\*.doc") v xFileStr = Dir(xFolder & "\*.docx"), saj predvidevam, da imate novejši format besednih datotek.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, koda deluje, vendar mi na koncu prikaže "Runtime error 91", nekatere moje datoteke imajo predmete. Imate kakšno idejo, kako lahko to popravim?
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala! Deloval kot čar!
Ta komentar je moderator na spletnem mestu minimiziral
Hitro in odlično je delal na mapi, polni datotek .docx. Zahvaljujem se vam/
Ta komentar je moderator na spletnem mestu minimiziral
Skript mi ​​odlično deluje, vendar samo za eno mapo. Ali obstaja način za vključitev vseh podmap?
Ta komentar je moderator na spletnem mestu minimiziral
Hvala za to - pravkar sem hotel nekaj kodirati, ko sem pomislil: "Hej, morda je kdo to že naredil?" Imel si in posel bolj eleganten, kot bi naredil jaz. Hvala za vaše trdo delo.
Ta komentar je moderator na spletnem mestu minimiziral
Zgornji skript sem uporabil za paketno pretvorbo dokumentov v korejščino, vendar skript ni deloval. Ko sem se naveličal spreminjati kodiranja, mi lahko kdo pomaga pri tej napaki?
Ta komentar je moderator na spletnem mestu minimiziral
POTREBUJEM jih za pretvorbo v besedilne datoteke z razmejitvami, ali je to še mogoče.
Ta komentar je moderator na spletnem mestu minimiziral
To je delovalo dobro! hvala
Ocenjeno 5 iz 5
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, hvala za to objavo. Ko pritisnem "zaženi", dobim sporočilo o napaki: "Napaka pri prevajanju: Neveljaven zunanji postopek." To je ne glede na to, ali uporabljam razširitev doc ali docx (morda ni povezano, vendar sem poskusil oboje.) Prosim, ali lahko pomagate? Nimam pojma, kako uporabljati kodo... in res moram pretvoriti tono dokumentov. Hvala vam!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Durga,
Koda v mojem primeru deluje dobro.
Prepričajte se, da okno Module (Koda) vsebuje samo kodo VBA, navedeno v objavi.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, to deluje popolnoma. Ali obstaja način, da izberete drug format kodiranja TXT (UTF-8 namesto Windows na primer)?
Ta komentar je moderator na spletnem mestu minimiziral
Živijo Simon,
Naslednja koda VBA pomaga pretvoriti vse Wordove dokumente v določeni mapi v datoteke .txt UTF-8
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
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala
Ta komentar je moderator na spletnem mestu minimiziral
Hvala lepa ! La conversion se fait trè bien
Ta komentar je moderator na spletnem mestu minimiziral
Vielen Dank, das ist wirklich sehr hilfreich! Ich werde auf Deine Seite bei der nächsten Gelegenheit verweisen.
Pozdrav
Uli
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL