Skip to main content

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

Author: Siluvia Last Modified: 2025-08-06

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

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

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

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

  1. افتح مستند Word الذي تريد معالجته. اضغط على Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.
  2. في نافذة Visual Basic، انقر على "إدراج" > "وحدة"، ثم قم بلصق الكود التالي في نافذة الوحدة: 
    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 window with Insert > Module selected and VBA code copied into the Module window
  3. اضغط على F5 لتشغيل الكود.
  4. في نافذة التصفح التي ستظهر، حدد مجلدًا لحفظ ملفات PDF واضغط على "موافق".
    Browse window
  5. في أول نافذة حوار لـ Kutools for Word، أدخل رقم الصفحة الابتدائية واضغط على "موافق".
    Kutools for Word dialog box with a text box for entering the start page number
  6. في ثاني نافذة حوار لـ Kutools for Word، أدخل رقم الصفحة النهائية واضغط على "موافق".
    Second Kutools for Word dialog box with a text box for entering the last page number

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

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

Pages are split and saved as individual PDF files
تقسيم مستند Word بسهولة إلى عدة مستندات
قم بتقسيم مستند Word بسهولة إلى عدة مستندات باستخدام أداة تقسيم المستند. بدلاً من النسخ واللصق يدويًا، تتيح لك هذه الأداة تقسيم المستند بناءً على الصفحة، العنوان 1، فواصل الصفحات، أو فواصل الأقسام - مما يحسن الكفاءة بشكل كبير.
A screenshot of the Split Document utility splitting a Word document by page
Kutools for Word: قم بتحسين تجربتك في Word بمئات الأدوات المفيدة. قم بالتنزيل الآن وشاهد الفرق!

أفضل أدوات الإنتاجية لمكتبك

Kutools for Word - ارتقِ بتجربتك في Word مع أكثر من 100 ميزة مذهلة!

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

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

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

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

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

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

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

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

Kutools and Kutools Plus tabs on the Word Ribbon
👉 ترغب في تجربة هذه الميزات؟ نزّل Kutools for Word الآن! 🚀
 

أفضل أدوات الإنتاجية لمكتبك

Kutools for Word - 100+ أداة لـ Word

تنزيل مجاني اشترِ الآن تعرف أكثر على Kutools