كيف تحفظ كل صفحة كملفات pdf منفصلة في مستند Word؟
أثناء استخدام مستند Microsoft Word ، يمكنك حفظ كل صفحة كملفات pdf منفصلة واحدة تلو الأخرى باستخدام وظيفة حفظ باسم المضمنة. ومع ذلك ، إذا كان هناك مئات الصفحات التي يجب تقسيمها وحفظها كملفات pdf فردية ، فكيف يمكنك القيام بذلك؟ توفر هذه المقالة طريقة لحل هذه المشكلة بسرعة.
احفظ كل صفحة كملفات pdf منفصلة دفعة واحدة باستخدام كود VBA
احفظ كل صفحة كملفات pdf منفصلة دفعة واحدة باستخدام كود VBA
يساعدك رمز VBA أدناه على حفظ كل صفحة في مستند بسرعة كملفات pdf فردية في نفس الوقت. الرجاء القيام بما يلي.
1. افتح المستند الذي ستحفظ فيه كل صفحة أو صفحات محددة كملفات pdf ، ثم اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، انسخ رمز VBA أدناه في نافذة الوحدة النمطية.
رمز VBA: احفظ كل صفحة كملفات pdf منفصلة في نفس الوقت في مستند Word
Sub SaveAsSeparatePDFs()
'Updated by Extendoffice 20180906
Dim I As Long
Dim xStr As String
Dim xPathStr As Variant
Dim xDictoryStr As String
Dim xFileDlg As FileDialog
Dim xStartPage, xEndPage As Long
Dim xStartPageStr, xEndPageStr As String
Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xFileDlg.Show <> -1 Then
MsgBox "Please chose a valid directory", vbInformation, "Kutools for Word"
Exit Sub
End If
xPathStr = xFileDlg.SelectedItems(1)
xStartPageStr = InputBox("Begin saving PDFs starting with page __? " & vbNewLine & "(ex: 1)", "Kutools for Word")
xEndPageStr = InputBox("Save PDFs until page __?" & vbNewLine & "(ex: 7)", "Kutools for Word")
If Not (IsNumeric(xStartPageStr) And IsNumeric(xEndPageStr)) Then
MsgBox "The enterng start page and end page should be number format", vbInformation, "Kutools for Word"
Exit Sub
End If
xStartPage = CInt(xStartPageStr)
xEndPage = CInt(xEndPageStr)
If xStartPage > xEndPage Then
MsgBox "The start page number can't be larger than end page", vbInformation, "Kutools for Word"
Exit Sub
End If
If xEndPage > ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) Then
xEndPage = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
End If
For I = xStartPage To xEndPage
ActiveDocument.ExportAsFixedFormat xPathStr & "\Page_" & I & ".pdf", _
wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I, wdExportDocumentWithMarkup, _
False, False, wdExportCreateHeadingBookmarks, True, False, False
Next
End Sub
3. اضغط على F5 مفتاح لتشغيل الكود.
4. في ال تصفح ، حدد مجلدًا لحفظ ملفات pdf وانقر فوق OK زر. انظر لقطة الشاشة:
5. في الأول كوتولس للكلمة في مربع الحوار ، أدخل رقم صفحة البداية لمستندك في مربع النص وانقر OK.
6. في الثانية كوتولس للكلمة في مربع الحوار ، أدخل رقم الصفحة الأخيرة من المستند الخاص بك ، ثم انقر فوق حسنا. انظر لقطة الشاشة:
ملاحظات: إذا كنت ترغب فقط في حفظ عدة صفحات باستمرار في المستند كملفات pdf منفصلة مثل الصفحات 4 و 5 و 6 ، فالرجاء إدخال 4 و 6 بشكل منفصل في مربعي الحوار أعلاه.
بعد تشغيل الكود ، يرجى الانتقال إلى المجلد المحدد الذي حددته في الخطوة 4 ، يمكنك رؤية جميع الصفحات مقسمة وحفظها كملفات pdf فردية كما هو موضح أدناه.
قم بتقسيم كل صفحة من المستند وحفظها كمستندات جديدة منفصلة:
• انقسام المستند فائدة كوتولس ل إكسيل يمكن أن تساعدك على تقسيم وحفظ كل صفحة من المستند الحالي بسهولة كمستند جديد منفصل بشكل مجمّع كما هو موضح في لقطة الشاشة أدناه. قم بتنزيله وجربه الآن! (60درب مجاني ليوم)
أفضل أدوات إنتاجية المكتب
كوتولس للكلمة - ارفع تجربة كلمتك مع أكثر 100 ميزات رائعة!
🤖 مساعد كوتولس AI: تحويل كتابتك باستخدام الذكاء الاصطناعي - توليد المحتوى / إعادة كتابة النص / تلخيص المستندات / الاستفسار عن المعلومات على أساس الوثيقة، كل ذلك داخل Word
📘 إتقان الوثيقة: تقسيم الصفحات / دمج المستندات / تصدير التحديد بتنسيقات مختلفة (PDF/TXT/DOC/HTML...) / دفعة تحويل إلى PDF / تصدير الصفحات كصور / طباعة ملفات متعددة في وقت واحد
✏ تحرير المحتويات: بحث واستبدال دفعة عبر ملفات متعددة / تغيير حجم كافة الصور / تبديل صفوف وأعمدة الجدول / تحويل الجدول إلى نص
🧹 تنظيف سهل: اكتساح بعيدا مساحات اضافية / فواصل القسم / كل الرؤوس / مربعات النص / الارتباطات التشعبية / لمزيد من أدوات الإزالة، توجه إلى موقعنا إزالة المجموعة
➕ إدراجات إبداعية: إدراج الف فاصل / مربعات الاختيار / أزرار الراديو / رمز الاستجابة السريعة / الباركود / جدول الخط القطري / شرح المعادلة / صورة توضيحية / الجدول التوضيحي / صور متعددة / اكتشف المزيد في أدخل المجموعة
🔍 التحديدات الدقيقة: يحدد بدقة صفحات محددة / الجداول / الأشكال / فقرات العناوين / تحسين التنقل باستخدام الأكثر من ذلك حدد الميزات
⭐ تحسينات النجوم: انتقل بسرعة إلى أي مكان / الإدراج التلقائي للنص المتكرر / التبديل بسلاسة بين نوافذ المستندات / 11 أدوات التحويل