كيفية تحويل دفعة مستندات 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 مرة واحدة. انظر لقطة الشاشة:
أفضل أدوات إنتاجية المكتب
كوتولس للكلمة - ارفع تجربة كلمتك مع أكثر 100 ميزات رائعة!
🤖 مساعد كوتولس AI: تحويل كتابتك باستخدام الذكاء الاصطناعي - توليد المحتوى / إعادة كتابة النص / تلخيص المستندات / الاستفسار عن المعلومات على أساس الوثيقة، كل ذلك داخل Word
📘 إتقان الوثيقة: تقسيم الصفحات / دمج المستندات / تصدير التحديد بتنسيقات مختلفة (PDF/TXT/DOC/HTML...) / دفعة تحويل إلى PDF / تصدير الصفحات كصور / طباعة ملفات متعددة في وقت واحد
✏ تحرير المحتويات: بحث واستبدال دفعة عبر ملفات متعددة / تغيير حجم كافة الصور / تبديل صفوف وأعمدة الجدول / تحويل الجدول إلى نص
🧹 تنظيف سهل: اكتساح بعيدا مساحات اضافية / فواصل القسم / كل الرؤوس / مربعات النص / الارتباطات التشعبية / لمزيد من أدوات الإزالة، توجه إلى موقعنا إزالة المجموعة
➕ إدراجات إبداعية: إدراج الف فاصل / مربعات الاختيار / أزرار الراديو / رمز الاستجابة السريعة / الباركود / جدول الخط القطري / شرح المعادلة / صورة توضيحية / الجدول التوضيحي / صور متعددة / اكتشف المزيد في أدخل المجموعة
🔍 التحديدات الدقيقة: يحدد بدقة صفحات محددة / الجداول / الأشكال / فقرات العناوين / تحسين التنقل باستخدام الأكثر من ذلك حدد الميزات
⭐ تحسينات النجوم: انتقل بسرعة إلى أي مكان / الإدراج التلقائي للنص المتكرر / التبديل بسلاسة بين نوافذ المستندات / 11 أدوات التحويل