KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

كيف يمكن حفظ كل صفحة في مستند Word كملف PDF منفصل؟

المؤلفSiluviaتاريخ التعديل

في Microsoft Word، يمكنك حفظ كل صفحة يدويًّا كملف PDF منفصل باستخدام ميزة «حفظ باسم» المضمنة، وذلك بتحديد رقم الصفحة في مربع حوار الخيارات. لكن إذا كنت تعمل على مستند كبير يحتوي على مئات الصفحات، فقد يكون هذا الإجراء اليدوي مرهقًا ويستغرق وقتًا طويلاً. يقدم هذا المقال طريقة سريعة لحفظ جميع الصفحات كملفات PDF فردية دفعة واحدة.

حفظ كل صفحة كملفات ملفات PDF منفصلة دفعة واحدة باستخدام كود VBA

حفظ كل صفحة كملفات ملفات PDF منفصلة دفعة واحدة باستخدام كود VBA

يمكنك استخدام كود VBA أدناه لحفظ كل صفحة في مستند Word تلقائيًّا كملف PDF منفصل. إليك الطريقة:

  1. افتح مستند Word الذي تريد معالجته، ثم اضغطAlt + F11 لفتح نافذة Microsoft Visual Basic for Applications.
  2. في نافذة Visual Basic، انقر فوق «Insert» > «Module»، ثم الصق كود VBA التالي في نافذة الوحدة:
    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
    نافذة VBA مع تحديد Insert > Module ولصق كود VBA في نافذة الوحدة
  3. اضغطF5 لتشغيل الكود.
  4. في نافذة الاستعراض التي تظهر، اختر المجلد الذي تريد حفظ ملفات PDF فيه، ثم انقر فوق «موافق».
    نافذة الاستعراض
  5. في مربع الحوار الأول لـ «Kutools for Word»، أدخل رقم الصفحة الابتدائية، ثم انقر فوق «موافق».
    Kutools for Word مربع الحوار مع مربع نص لإدخال رقم الصفحة الأولى
  6. في مربع الحوار الثاني لـ «Kutools for Word»، أدخل رقم الصفحة الأخيرة، ثم انقر فوق «موافق».
    مربع الحوار Kutools for Word الثاني مع مربع نص لإدخال رقم الصفحة الأخيرة

    ملاحظة:على سبيل المثال، لحفظ بضع صفحات متتالية—مثل الصفحات 4 و5 و6—أدخل فقط "4" و"6" في مربّعي الحوار.

بعد تشغيل البرنامج النصي، انتقل إلى المجلد الذي حددته في الخطوة 4، وستجد أن كل صفحة محددة قد تم حفظها كملف PDF منفصل.

تم تقسيم الصفحات وحفظها كملفات PDF منفصلة
تقسيم مستند Word بسهولة إلى عدة مستندات
تقسيم مستند Word بسهولة إلى عدة مستندات باستخدام أداةتقسيم المستند. وبدلاً من النسخ واللصق يدويًا، تتيح لك هذه الأداة تقسيم مستندك بناءً علىالصفحة،العنوان 1،فاصل الصفحات، أوفاصل المقطع— مما يحسّن الكفاءة بشكل كبير.
لقطة شاشة لأداة تقسيم المستند أثناء تقسيم مستند Word حسب الصفحة
Kutools for Word: عزِّز تجربتك مع Word بمئات الأدوات المفيدة. نزِّله الآن وشاهد الفرق!

أفضل أدوات إنتاجية أوفيس

Kutools for Word – ارتقِ بتجربتك في Word مع أكثر من100 ميزة رائعة!

🤖مزايا KUTOOLS AI: مساعد الذكاء الاصطناعي / مساعد الوقت الفعلي / تلميع فائق (مع الحفاظ على التنسيق) / ترجمة فائقة (مع الحفاظ على التنسيق) / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي...

📘إتقان المستندات: تقسيم الصفحات / دمج المستندات / تصدير التحديد بصيغ متعددة (PDF/TXT/DOC/HTML...) / تحويل دفعة إلى PDF...

✏تحرير المحتوى: البحث والاستبدال الجماعي عبر ملفات متعددة / تغيير حجم جميع الصور / تحويل الصفوف والأعمدة في الجدول / تحويل الجدول إلى نص...

🧹تنظيف سهل: امسح بسهولةالمسافات الزائدة،فاصل المقطع،مربع النص، أوالروابط التشعبية. وللمزيد من أدوات الإزالة، انتقل إلى مجموعةإزالة...

➕إدراجات إبداعية: أدرجفواصل الآلاف،مربع اختيار،زر راديو،رمز QR،الباركود، أوصورًا متعددة! اكتشف المزيد في مجموعةإدراج...

🔍اختيارات دقيقة: حدد بدقةصفحات محددة / الجداول / الأشكال / فقرة عنوان. وعزّز تجربة التنقّل لديك باستخدامالمزيد من ميزات ال...تحديد

⭐تحسينات مميزة: التنقّل إلى أي موقع / إدراج تلقائي للنصوص المتكررة / التبديل بين مستندات Windows / 11 أداة تحويلأدوات...

🌍يدعم أكثر من 40 لغة: استخدم كوتولز باللغة التي تفضلها – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من 40 لغة أخرى!

Kutools for Word علامات التبويب على الشريط
 
 

Office Tab- يجلب واجهة ذات علامات تبويب إلى أوفيس، مما يجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word وExcel وPowerPoint وPublisher وAccess وVisio وProject.
  • افتح وأنشئ مستندات متعددة في علامات تبويب جديدة ضمن نفس النافذة، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50%، ويقلل مئات نقرات الفأرة لك كل يوم!

✨ Kutools for Office – تثبيت واحد، خمسة أدوات قوية!

يتضمنOffice Tab Pro·Kutools لـ Excel·Kutools لـ Outlook·Kutools for Word·Kutools for PowerPoint

📦 احصل على جميع أدوات 5 في حزمة واحدة | 🔗 تكامل سلس مع Microsoft Office | ⚡ وقت الحفظ وعزّز إنتاجيتك فورًا

أفضل أدوات إنتاجية أوفيس

Kutools for Word- أدوات 100+ لـ Word

تنزيل مجانياشترِ الآنمعرفة المزيد عن Kutools