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

Author: Siluvia Last Modified: 2025-05-30

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

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

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

افتح مستند Word الذي تريد معالجته. اضغط على Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

في نافذة 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

اضغط على F5 لتشغيل الكود.
في نافذة التصفح التي ستظهر، حدد مجلدًا لحفظ ملفات PDF واضغط على "موافق".
في أول نافذة حوار لـ Kutools for Word، أدخل رقم الصفحة الابتدائية واضغط على "موافق".
في ثاني نافذة حوار لـ Kutools for Word، أدخل رقم الصفحة النهائية واضغط على "موافق".
ملاحظة: على سبيل المثال، لحفظ عدد من الصفحات المتتالية - الصفحات 4 و5 و6 - فقط أدخل "4" و"6" في نافذتي الحوار.

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

Pages are split and saved as individual PDF files

تقسيم مستند Word بسهولة إلى عدة مستندات

قم بتقسيم مستند Word بسهولة إلى عدة مستندات باستخدام أداة تقسيم المستند. بدلاً من النسخ واللصق يدويًا، تتيح لك هذه الأداة تقسيم المستند بناءً على الصفحة، العنوان 1، فواصل الصفحات، أو فواصل الأقسام - مما يحسن الكفاءة بشكل كبير.