Skip to main content

Come convertire in blocco i documenti Word in file txt?

Author: Siluvia Last Modified: 2025-08-06

Questo articolo spiega come convertire in blocco tutti i documenti Word presenti in una cartella specifica in file TXT separati utilizzando Word.

Convertire in blocco i documenti Word in file txt con VBA

Convertire in blocco i documenti Word in file txt con VBA

Il seguente codice VBA può aiutare a convertire tutti i documenti Word di una cartella specifica in file txt in una sola volta. Si prega di seguire i passaggi indicati di seguito.

1. Nel Documento Word, premere i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra Microsoft Visual Basic for Applications, fare clic su Inserisci > Modulo, quindi copiare il codice sottostante nella finestra Modulo.

Codice VBA: Convertire in blocco i documenti Word in file 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

VBA window with the above code pasted into a module

3. Premere il tasto F5 per eseguire il codice.

4. Nella finestra Sfoglia, selezionare la cartella che contiene i documenti Word da convertire in file txt e fare clic sul pulsante OK. Vedere la schermata:

Browse window

Successivamente, è possibile vedere che tutti i documenti nella cartella selezionata vengono convertiti in file txt contemporaneamente. Vedere la schermata:

All documents in selected folder are converted to txt files

I migliori strumenti per la produttività in ufficio

Kutools per Word - Migliora la tua esperienza con Word grazie a oltre 100 straordinarie funzionalità!

🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida (Mantieni Formato) / Super Traduci (Mantieni Formato) / Redazione AI / Correzione AI...

📘 Maestria sui Documenti: Dividi Pagine / Unisci Documenti / Esporta selezione in vari formati (PDF/TXT/DOC/HTML...) / Converti in batch in PDF...

✏ Modifica dei Contenuti: Trova e sostituisci in batch su più file / Ridimensiona tutte le immagini / Trasponi righe e colonne delle tabelle / Converti Tabella in Testo...

🧹 Pulizia senza sforzo: Elimina Spazi Extra / Interruzioni di Sezione / Caselle di testo / Collegamenti ipertestuali / Per altri strumenti di rimozione, vai al gruppo Rimuovi...

➕ Inserimenti Creativi: Inserisci separatori delle migliaia / Caselle di Controllo / Pulsanti di Opzione / Codice QR / Codice a Barre / Immagini multiple / Scopri di più nel gruppo Inserisci...

🔍 Selezioni precise: Individua pagine specifiche / Tabelle / Forme / Paragrafi di intestazione / Migliora la navigazione con ancora più funzionalità di Selezione...

⭐ Funzionalità Star: Vai in qualsiasi posizione / Inserimento automatico di testo ripetitivo / Passaggio tra finestre documento /11 strumenti di conversione...

🌍 Supporta oltre40 lingue: Usa Kutools nella tua lingua preferita – disponibile in Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Vuoi provare queste funzionalità? Scarica subito Kutools per Word! 🚀
 

I migliori strumenti per la produttività in ufficio

Kutools per Word - 100+ Strumenti per Word

Download gratuito Acquista ora Scopri di più su Kutools