Do I need to do this in a word document from the same folder I want to convert or any new word document that I start? -Tried both options and none is working but I am also not getting any error messages
كيفية تحويل دفعة مستندات 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 الموصى بها
Kutools For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪
- يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
- أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
- دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
- قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
- قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...