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
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 Navigare 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:
