كيف يمكن تقسيم مستند Word إلى عدة مستندات؟

إذا كان لديك مستند Word كبير وتحتاج إلى تقسيمه إلى عدة مستندات أصغر، فسيأخذك هذا الدليل في جولةٍ عبر ثلاث طرق فعّالة. سواء كنت تفضّل استخدام VBA للتقسيم وفق مُحدِّد معيّن أو حسب الصفحات، أو الاعتماد على الوظائف الميسَّرة في Kutools for Word، فستجد الحل الأمثل الذي يلبّي احتياجاتك.

• تقسيم مستند Word باستخدام VBA وفق محدد معيّن
• تقسيم مستند Word حسب العنوان/الصفحة/فاصل المقطع/فاصل الصفحات باستخدام Kutools for Word
• تقسيم مستند Word حسب الصفحة باستخدام VBA

تقسيم مستند Word باستخدام VBA وفق محدد معيّن

بدلًا من تقسيم المستند يدويًا، يمكنك استخدام VBA لتقسيم مستند Word تلقائيًا وفق محدد معيّن. اتبع الخطوات التالية:

1. اضغط علىAlt + F11 لفتح نافذة Microsoft Visual Basic for Applications.
2. انقر علىإدراج>وحدة نمطية، والصق كود VBA أدناه في نافذة الوحدة النمطية.

   Sub SplitNotes(delim As String, strFilename As String)
   Dim doc As Document
   Dim arrNotes
   Dim I As Long
   Dim X As Long
   Dim Response As Integer
   arrNotes = Split(ActiveDocument.Range, delim)
   Response = MsgBox("This will split the document into " & UBound(arrNotes) + 1 & " sections. Do you wish to proceed?", 4)
   If Response = 7 Then Exit Sub
   For I = LBound(arrNotes) To UBound(arrNotes)
   If Trim(arrNotes(I)) <> "" Then
   X = X + 1
   Set doc = Documents.Add
   doc.Range = arrNotes(I)
   doc.SaveAs ThisDocument.Path & "\" & strFilename & Format(X, "000")
   doc.Close True
   End If
   Next I
   End Sub
   Sub test()
   'delimiter & filename
   SplitNotes "///", "Notes "
   End Sub

3. انقر على زرتشغيلأو اضغط علىF5 لتنفيذ كود VBA.
4. في نافذة Microsoft Word المنبثقة، أكد النقر علىنعم.

   

تقسيم مستند Word حسب العنوان/الصفحة/فاصل المقطع/فاصل الصفحات باستخدام Kutools for Word

يوفّر Kutools for Word طريقةً أكثر ملاءمةً ومرونةً لتقسيم المستند مقارنةً بالطرق اليدوية أو استخدام VBA، حيث يقدّم خياراتٍ متعددةً تتيح لك تقسيم المستند حسب العناوين، أو الصفحات، أو فاصل المقطع، أو فاصل الصفحات، أو كل n صفحات، أو نطاقات صفحات مخصصة—ما يمنحك التحكّم الكامل في تكييف عملية التقسيم وفقًا لاحتياجاتك الخاصة.

1. انقر علىKUTOOLS PLUS>تقسيملتفعيل ميزةالتقسيم.

   

2. في مربع حوار تقسيم المستند، قم بتكوين الخيارات التالية:

   اختر طريقة التقسيم من قائمةالتقسيم حسبالمنسدلة. تشمل الخيارات المتاحة: العناوين 1، فاصل الصفحات، فاصل المقطع، الصفحات، كل n صفحات، أو نطاقات صفحات مخصصة. انقر على زراستعراض لتحديد مجلد الوجهة للوثائق المقسمة. أدخل كلمة مفتاحية كبادئة لأسماء المستندات الجديدة في حقلبادئة المستند. تلميح:بالنقر على زرتحديث، يمكنك معاينة اسم المستند المُولَّد في مربعالمعاينة. انقر علىموافق.

سيتم تقسيم المستند وفق الطريقة المحددة، وحفظ الملف الناتج في المجلد المعيّن.

تقسيم مستند Word حسب الصفحة باستخدام VBA

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

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

   Sub SplitIntoPages()
   Dim docMultiple As Document
   Dim docSingle As Document
   Dim rngPage As Range
   Dim iCurrentPage As Integer
   Dim iPageCount As Integer
   Dim strNewFileName As String
   Application.ScreenUpdating = False 'Makes the code run faster and reduces screen flicker a bit.
   Set docMultiple = ActiveDocument 'Work on the active document
   Set rngPage = docMultiple.Range 'Instantiate the range object
   iCurrentPage = 1
   'Get the document's page count
   iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages)
   Do Until iCurrentPage > iPageCount
       If iCurrentPage = iPageCount Then
           rngPage.End = ActiveDocument.Range.End 'Last page (no next page)
       Else
           'Find the beginning of the next page
           'Must use the Selection object. The Range.Goto method will not work on a page
           Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1
           'Set the end of the range to the point between the pages
           rngPage.End = Selection.Start
       End If
       rngPage.Copy 'Copy the page into the Windows clipboard
       Set docSingle = Documents.Add 'Create a new document
       docSingle.Range.Paste 'Paste the clipboard contents to the new document
       'Remove any manual page break to prevent a second blank
       docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:=""
       'Build a new sequentially numbered file name based on the original multi-paged file name and path
       strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc")
       docSingle.SaveAs strNewFileName 'Save the new single-paged document
       iCurrentPage = iCurrentPage + 1 'Move to the next page
       docSingle.Close 'Close the new document
       rngPage.Collapse wdCollapseEnd 'Go to the next page
   Loop 'Go to the top of the do loop
   Application.ScreenUpdating = True 'Restore the screen updating
   'Destroy the objects.
   Set docMultiple = Nothing
   Set docSingle = Nothing
   Set rngPage = Nothing
   End Sub

3. انقر على زرتشغيلأو اضغط علىF5 لتنفيذ كود VBA.

مقالات ذات صلة:

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

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