Note: The other languages of the website are Google-translated. Back to English

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 ...
Yorumları sıralama ölçütü
Yorumlar (22)
5 üzerinden 5 olarak derecelendirildi · 1 derecelendirme
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ben bir şiir hayranıyım. 700'den fazla kelime kompozisyonunu txt'ye dönüştürmem gerekiyordu. Alt programınız sayesinde kısa sürede yapmayı başardım.
teşekkür ederim
Bu yorum sitedeki moderatör tarafından en aza indirildi
Mac'te en son Word'ü kullandığımda aynı kodu sağlamak mümkün müdür? Çalışma Zamanı hatası 5948 alıyorum ve bu bölümdeki hata ayıklama noktalarını alıyorum: Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)••••ˇˇˇˇ
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkür ederim! Bu son derece yararlı
Bu yorum sitedeki moderatör tarafından en aza indirildi
Onu nasıl işe aldın?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Benim için çalışmıyor, neden herhangi bir fikriniz var mı?
Bunu dönüştürmek istediğim klasördeki bir kelime belgesinde mi yoksa başlattığım herhangi bir yeni kelime belgesinde mi yapmam gerekiyor? -Her iki seçeneği de denedim ve hiçbiri çalışmıyor ancak herhangi bir hata mesajı da almıyorum
Bu yorum sitedeki moderatör tarafından en aza indirildi
Windows 10 ve Microsoft office 2016 kullanıyorum
Bu yorum sitedeki moderatör tarafından en aza indirildi
xFileStr = Dir(xFolder & "\*.doc") öğesini xFileStr = Dir(xFolder & "\*.docx") olarak değiştirin, çünkü daha yeni kelime dosyaları biçiminiz olduğunu varsayıyorum.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, kod çalışıyor ama sonunda bana 'Çalışma zamanı hatası 91' veriyor, bazı dosyalarımda nesneler var. Bunu nasıl düzeltebilirim bir fikriniz var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çok teşekkür ederim! Bir cazibe gibi çalıştı!
Bu yorum sitedeki moderatör tarafından en aza indirildi
.docx dosyalarıyla dolu bir klasörde hızlı ve mükemmel bir şekilde çalıştı. Teşekkür ederim/
Bu yorum sitedeki moderatör tarafından en aza indirildi
Komut dosyası benim için harika çalışıyor, ancak yalnızca bir klasör için. Tüm alt klasörleri dahil etmenin bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunun için teşekkürler - "Hey, belki biri bunu zaten yaptı?" Diye düşündüğümde kendim bir şeyler kodlayacaktım. Benim yapacağımdan daha zarif bir anlaşma yaptın. Emekleriniz için teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Belgeleri Korece toplu olarak dönüştürmek için yukarıdaki komut dosyasını kullandım, ancak komut dosyası çalışmadı. Kodlamayı değiştirmekten yorulduğumda, bu hatayla ilgili bana yardımcı olabilecek var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sınırlandırılmış metin dosyalarına dönüştürmelerine İHTİYACIM VAR, bu hala mümkün.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu bir tedavi işe yaradı! Teşekkürler!
5 üzerinden 5 olarak derecelendirildi
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, bu yazı için teşekkürler. "Çalıştır" düğmesine bastığımda bir hata mesajı alıyorum: "Derleme Hatası: Geçersiz Dış Prosedür." Bu, doc'u mu yoksa docx uzantısını mı kullanacağım (belki alakasız ama ikisini de denedim.) Lütfen yardımcı olabilir misiniz? Kodun nasıl kullanılacağı hakkında hiçbir fikrim yok .... ve gerçekten bir ton dokümanı dönüştürmem gerekiyor. Teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Durga,
Kod benim durumumda iyi çalışıyor.
Lütfen Modül (Kod) penceresinin yalnızca gönderide verilen VBA kodunu içerdiğinden emin olun.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, bu mükemmel çalışıyor. TXT'nin farklı bir kodlama biçimini seçmenin bir yolu var mı (örneğin, Windows yerine UTF-8)?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Selam Simon
Aşağıdaki VBA kodu, belirtilen bir klasördeki tüm Word belgelerini UTF-8 .txt dosyalarına dönüştürmeye yardımcı olur
Sub ConvertDocumentsToTxt()
'Updated by Extendoffice 20201031
    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, ".")
            xDoc.SaveAs Left(xFilePath, xIndex - 1) & ".txt", FileFormat:=wdFormatText, AddToRecentFiles:=False, Encoding:=msoEncodingUTF8
            xDoc.Close True
        End If
        xFileStr = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çok teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Tanrı aşkına! Dönüşüm se fait très bien
Bu yorum sitedeki moderatör tarafından en aza indirildi
Vielen Dank, das ist wirklich sehr hilfreich! Ich werde auf Deine Seite bei der nächsten Gelegenheit verweisen.
Tebrik
Uli
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır