Word belgelerini toplu olarak TXT dosya biçimine nasıl dönüştürebilirsiniz?

Bu makale, belirli bir klasördeki tüm Word belgelerini Word’de toplu olarak ayrı ayrı TXT dosyalarına dönüştürme yöntemini açıklamaktadır.

VBA ile Word belgelerini toplu olarak TXT dosyası biçimine dönüştürme

---

VBA ile Word belgelerini toplu olarak TXT dosyası biçimine dönüştürme

Aşağıdaki VBA kodu, belirli bir klasördeki tüm Word belgelerini tek seferde TXT dosya biçimine dönüştürmenize yardımcı olur. Lütfen aşağıdaki adımları uygulayın.

1. Word belgesinde, Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül seçeneğine tıklayın ve ardından aşağıdaki kodu Modül penceresine kopyalayın.

VBA kodu: Word belgelerini toplu olarak TXT dosyası biçimine 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. Kodu çalıştırmak için F5 tuşuna basın.

4. Açılan Gözat penceresinde, TXT dosyası biçimine dönüştürmek istediğiniz Word belgelerini içeren klasörü seçin ve Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:

Daha sonra seçili klasördeki tüm belgelerin tek seferde TXT dosya biçimine dönüştürüldüğünü görebilirsiniz. Ekran görüntüsüne göz atın: