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
Word belgelerini txt dosyasına toplu olarak nasıl dönüştürebilirim?
Bu makale, belirli bir klasördeki tüm Word belgelerinin Word'deki ayrı TXT dosyalarına toplu olarak nasıl dönüştürüleceğinden bahsediyor.
VBA ile Word belgelerini txt dosyalarına toplu olarak dönüştürün
VBA ile Word belgelerini txt dosyalarına toplu olarak dönüştürün
Aşağıdaki VBA kodu, belirli bir klasördeki tüm Word belgelerini aynı anda txt dosyalarına dönüştürmeye yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.
1. Word belgesinde, Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül, ardından aşağıdaki kodu Modül penceresine kopyalayın.
VBA kodu: Word belgelerini txt dosyalarına toplu dönüştürme
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. Tuşuna basın. F5 kodu çalıştırmak için anahtar.
4. içinde Araştır penceresinde, txt dosyalarına dönüştüreceğiniz Word belgelerini içeren klasörü seçin ve OK buton. Ekran görüntüsüne bakın:
Ardından, seçilen klasördeki tüm belgelerin bir defada txt dosyalarına dönüştürüldüğünü görebilirsiniz. Ekran görüntüsüne bakın:
Önerilen Word Üretkenlik Araçları
Kutools For Word - Word İçin 100'den Fazla Gelişmiş Özellik,% 50 Zaman Kazanın
- Karmaşık ve tekrarlanan işlemler saniyeler içinde tek seferlik işlem yapılabilir.
- Klasörler arasında birden çok görüntüyü aynı anda Word belgesine ekleyin.
- Birden çok Word dosyasını klasörler arasında istediğiniz sırada birleştirin ve birleştirin.
- Geçerli belgeyi başlık, bölüm sonu veya diğer kriterlere göre ayrı belgelere bölün.
- Dosyaları Doc ve Docx, Docx ve PDF, ortak dönüştürme ve seçim için araçlar koleksiyonu vb. Arasında dönüştürün ...