Skip to main content

كيفية تقسيم مستند Word إلى ملفات منفصلة كل 5 أو n صفحات؟

Author: Xiaoyang Last Modified: 2025-05-30

عند العمل مع مستندات Word الكبيرة، قد تحتاج إلى تقسيم المستند إلى ملفات أصغر ومنفصلة لتسهيل التعامل أو المشاركة أو التحرير. يمكن أن يكون تقسيم المستند كل 5 أو 10 صفحات أو عدد محدد من الصفحات حلاً عمليًا لإدارة المحتوى الطويل بكفاءة أكبر.

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

تقسيم مستند Word إلى ملفات منفصلة كل N صفحات باستخدام كود VBA

تقسيم مستند Word إلى ملفات منفصلة كل N صفحات بميزة رائعة


تقسيم مستند Word إلى ملفات منفصلة كل N صفحات باستخدام كود VBA

لتقسيم مستند كبير إلى ملفات منفصلة بناءً على كل N صفحات، يمكن أن يساعدك الكود التالي لـ VBA. اتبع الخطوات التالية:

  1. اضغط باستمرار على ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.
  2. انقر فوق إدراج > وحدة، ثم قم بنسخ ولصق الكود التالي في الوحدة الفارغة:
  3. Sub DocumentSplitter()
        Dim xDoc As Document, xNewDoc As Document
        Dim xSplit As String, xCount As Long, xLast As Long
        Dim xRngSplit As Range, xDocName As String, xFileExt As String
        Dim xRegEx As RegExp
        Dim xPageCount As Integer
        Dim xShell As Object, xFolder As Object, xFolderItem As Object
        Dim xFilePath As String
        On Error Resume Next
        Set xDoc = Application.ActiveDocument
        Set xShell = CreateObject("Shell.Application")
        Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0)
        If TypeName(xFolder) = "Nothing" Then Exit Sub
        Set xFolderItem = xFolder.Self
        xFilePath = xFolderItem.Path & "\"
        Application.ScreenUpdating = False
        Set xNewDoc = Documents.Add(Visible:=False)
        xDoc.Content.WholeStory
        xDoc.Content.Copy
        xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting
        With xNewDoc
            xPageCount = .ActiveWindow.Panes(1).Pages.Count
    L1:     xSplit = InputBox("The document contains " & xPageCount & " pages." & _
                     vbCrLf & vbCrLf & "Please enter the number of pages per split:", "Kutools for Word", xSplit)
            If Len(Trim(xSplit)) = 0 Then Exit Sub
            Set xRegEx = New RegExp
            With xRegEx
                .MultiLine = False
                .Global = True
                .IgnoreCase = True
                .Pattern = "[^0-9]"
            End With
            If xRegEx.Test(xSplit) = True Then
                MsgBox "Please enter a valid page number:", vbInformation, "Kutools for Word"
                Exit Sub
            End If
            If VBA.Int(xSplit) >= xPageCount Then
                MsgBox "The entered number exceeds the total page count of the document." & vbCrLf & "Please enter a valid number.", vbInformation, "Kutools for Word"
                GoTo L1
            End If
            xDocName = xDoc. Name
            xFileExt = VBA.Right(xDocName, Len(xDocName) - InStrRev(xDocName, ".") + 1)
            xDocName = Left(xDocName, InStrRev(xDocName, ".") - 1) & "_"
            xFilePath = xFilePath & xDocName
            For xCount = 0 To Int(xPageCount / xSplit)
                xPageCount = .ActiveWindow.Panes(1).Pages.Count
                If xPageCount > xSplit Then
                    xLast = xSplit
                Else
                    xLast = xPageCount
                End If
                Set xRngSplit = .GoTo(What:=wdGoToPage, Name:=xLast)
                Set xRngSplit = xRngSplit.GoTo(What:=wdGoToBookmark, Name:="\page")
                xRngSplit.Start = .Range.Start
                xRngSplit.Cut
                Documents.Add
                Selection.Paste
                ActiveDocument.SaveAs FileName:=xFilePath & xCount + 1 & xFileExt, AddToRecentFiles:=False
                ActiveWindow.Close
            Next xCount
            Set xRngSplit = Nothing
            xNewDoc.Close wdDoNotSaveChanges
            Set xNewDoc = Nothing
        End With
        Application.ScreenUpdating = True
    End Sub
  4. بعد لصق الكود، لا تزال في نافذة Microsoft Visual Basic for Applications ، انقر فوق أدوات > مرجع. في مربع الحوار مرجع - المشروع ، قم بتحديد خيار Microsoft VBScript Regular Expressions 5.5 من قائمة المرجع المتاح . شاهد لقطات الشاشة:
    VBA window with Tools > References selected Arrow Microsoft VBScript Regular Expressions 5.5 checked in the References-Project dialog box
  5. انقر فوق موافق، ثم اضغط على F5 لتشغيل الكود.
  6. ستظهر نافذة استعراض المجلد. حدد المجلد الذي تريد حفظ الملفات المقسمة فيه، ثم انقر فوق موافق.
  7. Browse For Folder dialog box

  8. ستظهر رسالة أخرى تسألك عن عدد الصفحات التي تريد التقسيم بناءً عليها. أدخل عدد الصفحات المطلوب وانقر فوق موافق.
  9. Dialog box for entering the page number to split based on

  10. سيتم تقسيم المستند إلى ملفات منفصلة كل N صفحات. انتقل إلى المجلد المحدد لعرض النتائج.
  11. The document is split into separate files every N pages


تقسيم مستند Word إلى ملفات منفصلة كل N صفحات بميزة رائعة

Kutools for Word يوفر وظيفة تقسيم قوية تمكنك من تقسيم مستند Word كبير بسرعة إلى عدة ملفات منفصلة بناءً على العنوان 1، فواصل الصفحات، فواصل الأقسام، أو الصفحات. هذه الميزة تُبسّط عملية يدوية كانت ستكون مملة.

Kutools for Word،المزود بذكاء اصطناعي 🤖، يقدم أكثر من 100 ميزات عملية لتبسيط مهامك.
  1. انقر فوق Kutools Plus > تقسيم.

    Split button on the Kutools tab on the ribbon

  2. في مربع الحوار الذي يظهر، قم بتكوين الخيارات التالية حسب الحاجة:
    1. حدد خيار كل n صفحات من قائمة تقسيم بواسطة.
    2. حدد قيمة n في مربع الإدخال.
    3. اختر موقع الحفظ.
    4. حدد بادئة للمستندات المقسمة.

      Split Document dialog box

  3. بعد الانتهاء من الإعدادات، انقر فوق موافق. سيتم تقسيم المستند إلى عدة ملفات بناءً على الخيار المحدد (مثل كل 7 صفحات).

    The document is split into separate files every N pages

استخدام وظيفة التقسيم في Kutools for Word يجعل تقسيم المستندات الكبيرة إلى ملفات أصغر وأكثر قابلية للإدارة أمرًا بسيطًا وفعالاً.

Kutools for Word هو الإضافة النهائية لبرنامج Word التي تُبسّط عملك وتعزز مهاراتك في معالجة المستندات. احصل عليه الآن!

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

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

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

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

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

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

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

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

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

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