Do I need to do this in a word document from the same folder I want to convert or any new word document that I start? -Tried both options and none is working but I am also not getting any error messages
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:
Instrumente de productivitate Word recomandate
Kutools pentru Word - Mai mult de 100 de funcții avansate pentru Word, economisiți-vă 50% timp
- Operațiile complicate și repetate pot fi efectuate o singură dată în câteva secunde.
- Inserați mai multe imagini în foldere în documentul Word simultan.
- Combinați și combinați mai multe fișiere Word din foldere într-unul singur cu comanda dorită.
- Împărțiți documentul curent în documente separate în funcție de titlu, secțiune de secțiune sau alte criterii.
- Convertiți fișiere între Doc și Docx, Docx și PDF, colecție de instrumente pentru conversii și selecție obișnuite și așa mai departe ...