Cum se convertesc în lot documentele Word în fișier txt?
Acest articol vorbește despre cum să convertiți în lot toate documentele Word dintr-un folder specific pentru a separa fișiere TXT în Word.
Conversia în lot a documentelor Word în fișiere txt cu VBA
Conversia în lot a documentelor Word în fișiere txt cu VBA
Codul VBA de mai jos vă poate ajuta să convertiți toate documentele Word dintr-un folder specific în fișiere txt simultan. Vă rugăm să faceți următoarele.
1. În documentul Word, apăsați tasta Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module, apoi copiați codul de mai jos în fereastra Module.
Cod VBA: convertiți în lot documentele Word în fișiere 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. apasă pe F5 tasta pentru a rula codul.
4. În Naviga fereastra, selectați folderul conține documente Word pe care le veți converti în fișiere txt și faceți clic pe OK buton. Vedeți captura de ecran:
Apoi, puteți vedea că toate documentele din folderul selectat sunt convertite în fișiere txt simultan. Vedeți captura de ecran:
Cele mai bune instrumente de productivitate de birou
Kutools for Word - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!
Scufundați-vă în caracteristicile evidențiate de mai jos sau faceți clic aici pentru a explora întreaga putere a Kutools for Word.
📘 Stăpânirea documentelor: Pagini împărțite / Fuzionați documente / Exportați selecția în diferite formate (PDF/TXT/DOC/XLSX) / Conversie lot în PDF / Exportați paginile ca imagini / Imprimați mai multe fișiere simultan ...
✏ Editarea continutului: Găsiți și înlocuiți în lot peste mai multe fișiere / Redimensionați toate imaginile / Transpuneți rânduri și coloane de tabel / Convertiți tabelul în text ...
🧹 Curățare fără efort: Îndepărtați Spații suplimentare / Secțiuni pauze / Toate anteturile / Casete text / hiperlinkuri / Pentru mai multe instrumente de eliminare, accesați grupul nostru de eliminare
➕ Inserții creative: Insera Mii de separatori / Casete de bifare / Butoane radio / QR Code / coduri de bare / Tabel cu linii diagonale / Legenda ecuației / Image Caption / Legenda tabelului / Imagini multiple / Descoperiți mai multe în grupul nostru de inserări
???? Selectii de precizie: Identificați anumite pagini / tabele / forme / paragrafele de titlu / Navigați cu ușurință folosind grupul nostru Select
⭐ Îmbunătățiri de stele: Navigați rapid în orice locație / inserarea automată a textului repetitiv / comutați fără probleme între ferestrele documentelor / 11 Instrumente de conversie ...
Transformați-vă sarcinile Word cu Kutools. 👉 Descărcați acum cu o perioadă de încercare de 30 de zile 🚀.















