كيفية تحويل عدة مستندات Word إلى ملفات PDF دفعة واحدة؟
من السهل عليك تحويل مستند Word إلى ملف PDF باستخدام وظيفة حفظ باسم في Word. ولكن إذا كنت تريد تحويل جميع مستندات Word الموجودة في مجلد إلى ملفات PDF منفصلة مرة واحدة ، فكيف يمكنك تحقيق ذلك؟ ستوضح لك هذه المقالة رمز VBA لتحويل مستندات Word المتعددة إلى ملفات pdf في Word دفعة واحدة.
قم بتحويل مستندات Word متعددة إلى ملفات pdf باستخدام VBA
قم بتحويل مستندات Word متعددة إلى ملفات pdf باستخدام Kutools for Word
قم بتحويل مستندات Word متعددة إلى ملفات pdf باستخدام VBA
يساعدك رمز VBA التالي على تحويل جميع مستندات Word الموجودة في مجلد بسرعة إلى ملفات pdf في وقت واحد. الرجاء القيام بما يلي.
1. في Word ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم انسخ رمز VBA أدناه في نافذة الوحدة النمطية.
كود فبا: دفعة تحويل مستندات وورد متعددة إلى ملفات pdf في وورد
Sub ConvertWordsToPdfs()
'Updated by Extendoffice 20181123
Dim xIndex As String
Dim xDlg As FileDialog
Dim xFolder As Variant
Dim xNewName As String
Dim xFileName As String
Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xDlg.Show <> -1 Then Exit Sub
xFolder = xDlg.SelectedItems(1) + "\"
xFileName = Dir(xFolder & "*.*", vbNormal)
While xFileName <> ""
If ((Right(xFileName, 4)) <> ".doc" Or Right(xFileName, 4) <> ".docx") Then
xIndex = InStr(xFileName, ".") + 1
xNewName = Replace(xFileName, Mid(xFileName, xIndex), "pdf")
Documents.Open FileName:=xFolder & xFileName, _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
ActiveDocument.ExportAsFixedFormat OutputFileName:=xFolder & xNewName, _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
ActiveDocument.Close
End If
xFileName = Dir()
Wend
End Sub
3. اضغط على F5 مفتاح لتشغيل الكود.
4. ينبثق مربع حوار "تصفح" ، يرجى تحديد المجلد الذي يحتوي على مستندات Word التي ستحولها إلى ملفات pdf ، ثم انقر فوق OK .
ثم يتم تحويل جميع مستندات Word الموجودة في المجلد المحدد إلى ملفات pdf منفصلة مرة واحدة. انظر لقطة الشاشة:
قم بتحويل مستندات Word متعددة إلى ملفات pdf باستخدام Kutools for Word
إذا كان من الصعب التعامل مع التعليمات البرمجية لـ VBA ، فيمكنك تجربة تحويل المستندات فائدة كوتولس للكلمة لحل المشكلة.
كوتولس للكلمة : مع أكثر من 100 وظيفة إضافية مفيدة لـ Word ، حر في المحاولة دون قيود 60 أيام.
1. انقر كوتولس بلس > Doc / Docx. انظر لقطة الشاشة:
2. في ال محول تنسيق المستند نافذة ، ما عليك القيام به على النحو التالي:
3. ثم ينبثق مربع حوار لإخبارك بعدد المستندات التي تم تحويلها بنجاح ، انقر فوق OK زر وأغلق ملف محول تنسيق المستند نافذة.
يتم الآن تحويل جميع المستندات بتنسيق docx. إلى ملفات pdf.
إذا كنت تريد الحصول على نسخة تجريبية مجانية من هذه الأداة المساعدة ، فيرجى الانتقال إلى تنزيل البرنامج مجانًا اولا ثم انتقل لتطبيق العملية حسب الخطوات اعلاه.
أفضل أدوات إنتاجية المكتب
كوتولس للكلمة - ارفع تجربة كلمتك مع أكثر 100 ميزات رائعة!
🤖 مساعد كوتولس AI: تحويل كتابتك باستخدام الذكاء الاصطناعي - توليد المحتوى / إعادة كتابة النص / تلخيص المستندات / الاستفسار عن المعلومات على أساس الوثيقة، كل ذلك داخل Word
📘 إتقان الوثيقة: تقسيم الصفحات / دمج المستندات / تصدير التحديد بتنسيقات مختلفة (PDF/TXT/DOC/HTML...) / دفعة تحويل إلى PDF / تصدير الصفحات كصور / طباعة ملفات متعددة في وقت واحد
✏ تحرير المحتويات: بحث واستبدال دفعة عبر ملفات متعددة / تغيير حجم كافة الصور / تبديل صفوف وأعمدة الجدول / تحويل الجدول إلى نص
🧹 تنظيف سهل: اكتساح بعيدا مساحات اضافية / فواصل القسم / كل الرؤوس / مربعات النص / الارتباطات التشعبية / لمزيد من أدوات الإزالة، توجه إلى موقعنا إزالة المجموعة
➕ إدراجات إبداعية: إدراج الف فاصل / مربعات الاختيار / أزرار الراديو / رمز الاستجابة السريعة / الباركود / جدول الخط القطري / شرح المعادلة / صورة توضيحية / الجدول التوضيحي / صور متعددة / اكتشف المزيد في أدخل المجموعة
🔍 التحديدات الدقيقة: يحدد بدقة صفحات محددة / الجداول / الأشكال / فقرات العناوين / تحسين التنقل باستخدام الأكثر من ذلك حدد الميزات
⭐ تحسينات النجوم: انتقل بسرعة إلى أي مكان / الإدراج التلقائي للنص المتكرر / التبديل بسلاسة بين نوافذ المستندات / 11 أدوات التحويل