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

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

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

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

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

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

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

1. اضغط مع الاستمرار علىALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر فوقإدراج>وحدة نمطية، ثم انسخ والصق الكود التالي في الوحدة النمطية الفارغة:

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

3. بعد لصق الكود، وضمن نافذةMicrosoft Visual Basic for Applications نفسها، انقر فوقأدوات > المراجع. في مربع الحوارالمراجع - المشروع، فعّل الخيارMicrosoft VBScript Regular Expressions 5.5 من قائمةالمراجع المتاحة. راجع لقطات الشاشة التالية:
4. انقر فوقموافق، ثم اضغط علىF5 لتشغيل الكود.
5. سيظهر مربع حواراستعراض المجلدات. حدد المجلد الذي تريد حفظ ملفات التقسيم فيه، ثم انقر فوقموافق.



6. سيظهر مطالَبٌ آخر يطلب منك تحديد عدد الصفحات التي تريد التقسيم بناءً عليها. أدخل العدد المطلوب، ثم انقر فوقموافق.



7. سيتم تقسيم المستند إلى ملفات منفصلة كل n صفحات. انتقل إلى المجلد المحدد لعرض النتائج.

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

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

1. انقر فوقKUTOOLS PLUS>تقسيم.

   

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

      

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

تُتيح لك ميزةالتقسيمفي Kutools for Word تقسيم المستندات الكبيرة إلى ملفات أصغر وأسهل في الإدارة بسهولة وفعالية.

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

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

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

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

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

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

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

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

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

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

 

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

 

---

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 AI ميزات:مساعد الذكاء الاصطناعي/مساعد الوقت الحقيقي/تلميع فائق/ترجمة فائقة/إخفاء المعلومات باستخدام الذكاء الاصطناعي/التدقيق اللغوي بالذكاء الاصطناعي
• 📘إتقان المستندات:تقسيم الصفحات/دمج المستندات/تحويل دفعة إلى PDF
• ✏تحرير المحتوى:البحث والاستبدال الجماعي/تغيير حجم جميع الصور
• 🧹تنظيف سهل:إزالة المسافات الزائدة/إزالة فاصل المقطع
• ➕إدراجات إبداعية:إدراج فواصل الآلاف/إدراج مربع اختيار/إنشاء رمز QR
• 🌍يدعم أكثر من 40 لغة: كوتولز يتحدث لغتك – يدعم أكثر من 40 لغة!

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