Pääsisältö

Tutustu uuteen, ilmainen versio Kutools for Outlookista tänään!

Kuinka muuntaa Word-asiakirjoja erässä txt-tiedostoksi?

Kirjailija: Siluvia Viimeksi muokattu: 2024-08-09

Tässä artikkelissa kerrotaan, kuinka kaikki tietyssä kansiossa olevat Word-asiakirjat muunnetaan erillisiin TXT-tiedostoihin Wordissa.

Erämuuntaa Word-asiakirjoja txt-tiedostoiksi VBA:lla

Erämuuntaa Word-asiakirjoja txt-tiedostoiksi VBA:lla

Alla oleva VBA-koodi voi auttaa muuttamaan kaikki tietyssä kansiossa olevat Word-asiakirjat txt-tiedostoiksi kerralla. Toimi seuraavasti.

1. Paina Word-asiakirjassa -painiketta muut + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.

2. Vuonna Microsoft Visual Basic for Applications -ikkunassa liite > Moduulitja kopioi alla oleva koodi moduuliikkunaan.

VBA-koodi: Muunna Word-asiakirjat erässä txt-tiedostoiksi

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

VBA-ikkuna, jossa yllä oleva koodi on liitetty moduuliin

3. paina F5 avain koodin suorittamiseen.

4. Vuonna selailla -ikkunassa, valitse kansio, joka sisältää Word-asiakirjoja, jotka muunnetaan txt-tiedostoiksi, ja napsauta OK -painiketta. Katso kuvakaappaus:

Selaa ikkunaa

Sitten voit nähdä, että kaikki valitun kansion asiakirjat muunnetaan txt-tiedostoiksi kerralla. Katso kuvakaappaus:

Kaikki valitun kansion asiakirjat muunnetaan txt-tiedostoiksi

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Paranna sanakokemustasi Overilla 100 Merkittäviä ominaisuuksia!

🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super Polish (säilytettävä muoto) / Super Translate (säilytä muoto) / AI editointi / AI Proofread...

📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Vie valikoima eri muodoissa (PDF/TXT/DOC/HTML...) / Erämuunnos PDF-muotoon...

✏ Sisältö Editointi: Eräetsi ja korvaa useita tiedostoja / Muuta kaikkien kuvien kokoa / Transponoi taulukon rivit ja sarakkeet / Muunna taulukko tekstiksi...

🧹 Vaivaton puhdistus: Pyyhkäise pois Ylimääräiset tilat / Leikkaukset / Tekstilaatikot / Hyperlinkit / Jos haluat lisää irrotustyökaluja, siirry kohtaan poista ryhmä...

➕ Luovat lisäosat: Aseta Tuhat erottimet / Valintaruudut / Radiopainikkeet / QR koodi / Viivakoodi / Useita kuvia / Tutustu lisää osoitteessa liite ryhmä...

🔍 Tarkkuusvalinnat: Tarkka kohta Tietyt sivut / taulukot / Muodot / Otsikko Kappaleet / Paranna navigointia lisää valita piirteet...

⭐ Tähtien parannukset: Siirry mihin tahansa sijaintiin / Lisää toistuvaa tekstiä automaattisesti / Vaihda asiakirjaikkunoiden välillä / 11 Muuntaminen Työkalut...

Kutools- ja Kutools Plus -välilehdet Word Ribbonissa
???? Haluatko kokeilla näitä ominaisuuksia? Lataa Kutools for Word nyt! 🚀
 

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Yli 100 Wordin työkalua

Ilmainen lataus Osta nyt Lue lisää Kutoolsista