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 ...
