Skip to main content

Kutools for Office — مجموعة واحدة. خمسة أدوات. أنجز المزيد.

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

Author Siluvia Last modified

في 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 لـ Word - ارتقِ بتجربتك في Word مع أكثر من 100 ميزة رائعة!

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

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

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

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

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

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

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

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

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

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

يشمل Office Tab Pro · Kutools لـ Excel · أدوات Kutools لـ Outlook · Kutools لـ Word · Kutools لـ PowerPoint

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

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

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

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