كيف تقسم مستند Word إلى ملفات منفصلة كل 5 صفحات أو صفحات n؟
إذا كان لديك مستند Word كبير يحتوي على مئات الصفحات ، والآن ترغب في تقسيم هذا المستند إلى ملفات منفصلة كل 10 صفحات أو ن. هل هناك طريقة سريعة وسهلة لحل هذه المهمة دون نسخ ولصق الصفحات واحدة تلو الأخرى؟
قم بتقسيم مستند Word إلى ملفات منفصلة كل 10 صفحات أو n صفحات برمز VBA
قم بتقسيم مستند Word إلى ملفات منفصلة كل 10 صفحات مع ميزة مذهلة
قم بتقسيم مستند Word إلى ملفات منفصلة كل 10 صفحات أو n صفحات برمز VBA
لتقسيم مستند كبير إلى ملفات منفصلة استنادًا إلى كل 10 صفحات أو n ، يمكن أن تقدم لك تعليمات VBA التالية خدمة ، يرجى القيام بذلك على النحو التالي:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. ثم انقر فوق إدراج > وحدة، انسخ والصق الكود أدناه في الوحدة الفارغة المفتوحة:
كود فبا: تقسيم مستند إلى ملفات منفصلة كل 10 أو ن صفحات:
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 page count you want to 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 the page number:", vbInformation, "Kutools for Word"
Exit Sub
End If
If VBA.Int(xSplit) >= xPageCount Then
MsgBox "The number is greater than the document number." & vbCrLf & "Please re-enter", 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 VBScript Regular Expressions 5.5 الخيار في المراجع المتاحة مربع القائمة ، انظر لقطة الشاشة:
4. ثم اضغط OK زر ، ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، و تصفح بحثًا عن مجلد يتم عرض مربع الحوار ، يرجى تحديد المجلد الذي تريد وضع الملفات المقسمة فيه ، انظر لقطة الشاشة:
5. ثم اضغط OK ، ويظهر مربع مطالبة آخر لتذكيرك بإدخال رقم عدد الصفحات الذي تريد التقسيم بناءً عليه ، انظر لقطة الشاشة:
6. ثم انقر فوق OK زر ، تم تقسيم مستند Word النشط إلى ملفات منفصلة كل 10 صفحات ، يمكنك الانتقال إلى المجلد المحدد لرؤية النتائج:
قم بتقسيم مستند Word إلى ملفات منفصلة كل 10 صفحات مع ميزة مذهلة
كوتولس للكلمة يتضمن ميزة قوية- الانقسام وظيفة ، باستخدام هذه الأداة ، يمكنك تقسيم مستند Word كبير بسرعة إلى عدة ملفات منفصلة بناءً على العنوان 1 وفاصل الصفحة وفاصل القسم والصفحة.
نصيحة:لتطبيق هذا الانقسام الميزة ، أولاً ، يجب عليك تنزيل ملف كوتولس للكلمة، ثم قم بتطبيق الميزة بسرعة وسهولة.
بعد تثبيت كوتولس للكلمة، يرجى القيام بذلك على النحو التالي:
1. انقر كوتولس بلس > الانقسام، انظر لقطة الشاشة:
2. في مربع الحوار المنبثق ، يرجى ضبط العمليات التالية حسب حاجتك ، انظر الصورة:
3. بعد الانتهاء من الإعدادات ، الرجاء الضغط OK، وسيتم تقسيم المستند بأكمله إلى ملفات متعددة بناءً على كل صفحة ، انظر لقطة الشاشة:
انقر لتنزيل Kutools for Word والتجربة المجانية الآن!
أفضل أدوات إنتاجية المكتب
كوتولس للكلمة - ارفع تجربة كلمتك مع أكثر 100 ميزات رائعة!
🤖 مساعد كوتولس AI: تحويل كتابتك باستخدام الذكاء الاصطناعي - توليد المحتوى / إعادة كتابة النص / تلخيص المستندات / الاستفسار عن المعلومات على أساس الوثيقة، كل ذلك داخل Word
📘 إتقان الوثيقة: تقسيم الصفحات / دمج المستندات / تصدير التحديد بتنسيقات مختلفة (PDF/TXT/DOC/HTML...) / دفعة تحويل إلى PDF / تصدير الصفحات كصور / طباعة ملفات متعددة في وقت واحد
✏ تحرير المحتويات: بحث واستبدال دفعة عبر ملفات متعددة / تغيير حجم كافة الصور / تبديل صفوف وأعمدة الجدول / تحويل الجدول إلى نص
🧹 تنظيف سهل: اكتساح بعيدا مساحات اضافية / فواصل القسم / كل الرؤوس / مربعات النص / الارتباطات التشعبية / لمزيد من أدوات الإزالة، توجه إلى موقعنا إزالة المجموعة
➕ إدراجات إبداعية: إدراج الف فاصل / مربعات الاختيار / أزرار الراديو / رمز الاستجابة السريعة / الباركود / جدول الخط القطري / شرح المعادلة / صورة توضيحية / الجدول التوضيحي / صور متعددة / اكتشف المزيد في أدخل المجموعة
🔍 التحديدات الدقيقة: يحدد بدقة صفحات محددة / الجداول / الأشكال / فقرات العناوين / تحسين التنقل باستخدام الأكثر من ذلك حدد الميزات
⭐ تحسينات النجوم: انتقل بسرعة إلى أي مكان / الإدراج التلقائي للنص المتكرر / التبديل بسلاسة بين نوافذ المستندات / 11 أدوات التحويل