Come convertire in batch documenti Word in file txt?
Questo articolo parla di come convertire in batch tutti i documenti di Word in una cartella specifica per separare i file TXT in Word.
Conversione in batch di documenti Word in file txt con VBA
Conversione in batch di documenti Word in file txt con VBA
Il codice VBA sottostante può aiutare a convertire tutti i documenti di Word in una cartella specifica in file txt contemporaneamente. Si prega di fare quanto segue.
1. Nel documento di Word, premere il pulsante altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Modulo, quindi copia il codice sottostante nella finestra del modulo.
Codice VBA: converte in batch i documenti di 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
3. premi il F5 chiave per eseguire il codice.
4. Nel Scopri la nostra gamma selezionare la cartella contenente i documenti di Word da convertire in file txt e fare clic su OK pulsante. Vedi screenshot:
Quindi puoi vedere tutti i documenti nella cartella selezionata vengono convertiti in file txt contemporaneamente. Vedi screenshot:
Strumenti di produttività Word consigliati
Kutools per Word: oltre 100 funzionalità avanzate per Word, risparmia il 50% del tempo
- Le operazioni complicate e ripetute possono essere eseguite una sola volta in pochi secondi.
- Inserisci più immagini tra le cartelle nel documento di Word contemporaneamente.
- Unisci e combina più file di Word tra cartelle in uno con l'ordine desiderato.
- Suddividi il documento corrente in documenti separati in base a titolo, interruzione di sezione o altri criteri.
- Converti file tra Doc e Docx, Docx e PDF, raccolta di strumenti per conversioni e selezioni comuni e così via ...
