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