كيفية تقسيم مستند Word إلى ملفات منفصلة كل 5 أو n صفحات؟
عند العمل مع مستندات Word الكبيرة، قد تحتاج إلى تقسيم المستند إلى ملفات أصغر ومنفصلة لتسهيل التعامل أو المشاركة أو التحرير. يمكن أن يكون تقسيم المستند كل 5 أو 10 صفحات أو عدد محدد من الصفحات حلاً عمليًا لإدارة المحتوى الطويل بكفاءة أكبر.
نسخ ولصق الصفحات يدويًا واحدة تلو الأخرى أمر يستغرق وقتًا وغير فعال. في هذا البرنامج التعليمي، سنقدم طرقًا سريعة وسهلة لتقسيم مستند Word إلى ملفات منفصلة كل N صفحات:
تقسيم مستند Word إلى ملفات منفصلة كل N صفحات باستخدام كود VBA
تقسيم مستند Word إلى ملفات منفصلة كل N صفحات بميزة رائعة
تقسيم مستند Word إلى ملفات منفصلة كل N صفحات باستخدام كود VBA
لتقسيم مستند كبير إلى ملفات منفصلة بناءً على كل N صفحات، يمكن أن يساعدك الكود التالي لـ VBA. اتبع الخطوات التالية:
- اضغط باستمرار على ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.
- انقر فوق إدراج > وحدة، ثم قم بنسخ ولصق الكود التالي في الوحدة الفارغة:
- بعد لصق الكود، لا تزال في نافذة Microsoft Visual Basic for Applications ، انقر فوق أدوات > مرجع. في مربع الحوار مرجع - المشروع ، قم بتحديد خيار Microsoft VBScript Regular Expressions 5.5 من قائمة المرجع المتاح . شاهد لقطات الشاشة:
- انقر فوق موافق، ثم اضغط على F5 لتشغيل الكود.
- ستظهر نافذة استعراض المجلد. حدد المجلد الذي تريد حفظ الملفات المقسمة فيه، ثم انقر فوق موافق.
- ستظهر رسالة أخرى تسألك عن عدد الصفحات التي تريد التقسيم بناءً عليها. أدخل عدد الصفحات المطلوب وانقر فوق موافق.
- سيتم تقسيم المستند إلى ملفات منفصلة كل N صفحات. انتقل إلى المجلد المحدد لعرض النتائج.
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
تقسيم مستند Word إلى ملفات منفصلة كل N صفحات بميزة رائعة
Kutools for Word يوفر وظيفة تقسيم قوية تمكنك من تقسيم مستند Word كبير بسرعة إلى عدة ملفات منفصلة بناءً على العنوان 1، فواصل الصفحات، فواصل الأقسام، أو الصفحات. هذه الميزة تُبسّط عملية يدوية كانت ستكون مملة.
- انقر فوق Kutools Plus > تقسيم.
- في مربع الحوار الذي يظهر، قم بتكوين الخيارات التالية حسب الحاجة:
- حدد خيار كل n صفحات من قائمة تقسيم بواسطة.
- حدد قيمة n في مربع الإدخال.
- اختر موقع الحفظ.
- حدد بادئة للمستندات المقسمة.
- بعد الانتهاء من الإعدادات، انقر فوق موافق. سيتم تقسيم المستند إلى عدة ملفات بناءً على الخيار المحدد (مثل كل 7 صفحات).
استخدام وظيفة التقسيم في Kutools for Word يجعل تقسيم المستندات الكبيرة إلى ملفات أصغر وأكثر قابلية للإدارة أمرًا بسيطًا وفعالاً.
أفضل أدوات الإنتاجية لمكتبك
Kutools for Word – عزز تجربتك في Word مع أكثر من 100 ميزة مذهلة!
🤖 ميزات Kutools AI: مساعد الذكاء الاصطناعي / مساعد الوقت الحقيقي / تلميع فائق (مع الحفاظ على التنسيق) / ترجمة فائقة (مع الحفاظ على التنسيق) / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي...
📘 إتقان المستندات: تقسيم الصفحات / دمج المستندات / تصدير التحديد بصيغ متعددة (PDF/TXT/DOC/HTML...) / تحويل جماعي إلى PDF...
✏ تحرير المحتوى: البحث والاستبدال الجماعي عبر عدة ملفات / تغيير حجم جميع الصور / تحويل الجدول بين الصفوف والأعمدة / تحويل الجدول إلى نص...
🧹 تنظيف بلا عناء: إزالة المسافات الزائدة / فواصل الأقسام / مربعات النص / الارتباطات التشعبية / للمزيد من أدوات الإزالة، توجه إلى مجموعة إزالة...
➕ إدراجات إبداعية: إدراج فواصل الآلاف / مربعات اختيار / أزرار راديو / رمز QR / الباركود / صور متعددة / اكتشف المزيد في مجموعة إدراج...
🔍 تحديدات دقيقة: تحديد صفحات معينة / الجداول / الأشكال / فقرات العنوان / عزز التنقل مع المزيد من ميزات التحديد...
⭐ تحسينات مميزة: انتقل إلى أي موقع / إدراج تلقائي للنصوص المتكررة / التبديل بين نوافذ المستندات /11 أداة تحويل...

أفضل أدوات الإنتاجية لمكتبك
Kutools for Word – أكثر من 100+ أداة لـ Word
- 🤖 ميزات Kutools AI: مساعد الذكاء الاصطناعي / مساعد الوقت الحقيقي / تلميع فائق / ترجمة فائقة / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي
- 📘 إتقان المستندات: تقسيم الصفحات / دمج المستندات / تحويل جماعي إلى PDF
- ✏ تحرير المحتوى: البحث والاستبدال الجماعي / تغيير حجم جميع الصور
- 🧹 تنظيف بلا عناء: إزالة المسافات الزائدة / إزالة فواصل الأقسام
- ➕ إدراجات إبداعية: إدراج فواصل الآلاف / إدراج مربعات اختيار / إنشاء رموز QR