كيفية تحويل دفعة مستندات Word إلى ملف txt؟

تتحدث هذه المقالة عن كيفية تحويل جميع مستندات Word في مجلد معين لفصل ملفات TXT في Word.

قم بتحويل مستندات Word إلى ملفات TXT باستخدام VBA

قم بتحويل مستندات Word إلى ملفات TXT باستخدام VBA

يمكن أن يساعد رمز VBA أدناه في تحويل جميع مستندات Word الموجودة في مجلد معين إلى ملفات txt مرة واحدة. الرجاء القيام بما يلي.

1. في مستند Word ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم انسخ الكود أدناه في نافذة الوحدة النمطية.

كود فبا: دفعة تحويل مستندات Word إلى ملفات txt

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. اضغط على F5 مفتاح لتشغيل الكود.

4. في ال تسوّق ، حدد المجلد الذي يحتوي على مستندات Word التي ستقوم بتحويلها إلى ملفات txt ، وانقر فوق OK زر. انظر لقطة الشاشة:

ثم يمكنك رؤية جميع المستندات الموجودة في المجلد المحدد يتم تحويلها إلى ملفات txt مرة واحدة. انظر لقطة الشاشة:

أدوات إنتاجية Word الموصى بها