قد تتطلب إدارة مستند Word طويلًا في بعض الأحيان استخراج صفحات معينة لمراجعتها أو توزيعها بشكل منفصل. سواء كنت تحتاج إلى صفحة واحدة فقط، أو مجموعة من الصفحات، أو تقسيم المستند بأكمله بناءً على معايير محددة، فإن Microsoft Word يقدم عدة طرق لتحقيق ذلك. دعنا نتعمق في أربع طرق فعالة لتقسيم واستخراج الصفحات من مستندات Word الخاصة بك.

استخراج صفحات محددة/الصفحة الحالية من Word

• عن طريق خاصية النسخ واللصق - يدوياً
• من خلال ميزة الطباعة إلى PDF - حفظ الصفحات المستخرجة إلى PDF
• بواسطة كود VBA - احفظ الصفحات المستخرجة في مجلد معين

قم بتقسيم مستندات Word بأكملها إلى ملفات منفصلة بناءً على الصفحات والعناوين والفواصل

استخراج صفحات محددة/الصفحة الحالية من Word

This guide provides a detailed overview of three efficient techniques to extract either specific pages or the current page from your document.

استخراج الصفحات عن طريق خاصية النسخ واللصق – يدوياً

إن أبسط طريقة لاستخراج صفحات أو محتوى محدد من مستند Word هي باستخدام وظيفة النسخ واللصق.

الخطوة 1: حدد المحتويات التي تريد استخراجها

Place the cursor at the front of the contents you want to copy, then scroll down to the end of the contents, and hold Shift key, click at the end of the contents.

الخطوة 2: انسخ المحتويات المحددة

انقر بزر الماوس الأيمن على المحتويات المحددة واختر نسخ، أو ببساطة اضغط على Ctrl + C

الخطوة 3: الصق في مستند جديد

افتح مستند Word جديد والصق المحتوى باستخدامه Ctrl + V.

الخطوة 4: احفظ المستند الجديد

احفظ المستند الذي تم إنشاؤه حديثًا بالنقر فوق قم بتقديم > حفظ باسم.

ميزة استخراج الصفحات عن طريق الطباعة إلى PDF - حفظ الصفحات المستخرجة إلى PDF

هناك طريقة أخرى لاستخراج الصفحات وهي طباعتها في ملف PDF. تعتبر هذه الطريقة مفيدة عندما تحتاج إلى مشاركة الصفحات المستخرجة أو حفظها بتنسيق مقبول على نطاق واسع.

الخطوة 1: انتقل إلى قائمة الطباعة

مع فتح المستند ، انتقل إلى قم بتقديم > طباعة.

الخطوة 2: حدد Microsoft Print to PDF

في مجلة طابعة القائمة المنسدلة ، اختر ميكروسوفت طباعة إلى بدف.

الخطوة 3: تحديد نطاق الصفحات

في الإعدادات، حدد نطاق الطباعة الذي تريده:

• طباعة كافة الصفحات: طباعة جميع صفحات المستند.

• تحديد الطباعة: اطبع التحديد، إذا لم تقم بتحديد أي نطاق، فلا يمكن استخدام هذا الخيار.

• طباعة الصفحة الحالية: طباعة الصفحة الحالية.

• طباعة مخصصة: طباعة نطاقات الصفحات المخصصة حسب حاجتك. عندما تختار هذا الخيار، صفحة يظهر لك مربع نص لكتابة رقم الصفحة للطباعة.

  

الخطوة 4: طباعة

انقر طباعة، واختر موقعًا لحفظ ملف PDF الخاص بك. سيتم حفظ الصفحات المحددة كمستند PDF جديد.

استخراج الصفحات بواسطة كود VBA - حفظ الصفحات المستخرجة في مجلد معين

بالنسبة للمستخدمين الذين يتعاملون مع VBA، يمكن أن يؤدي استخدام البرنامج النصي إلى أتمتة عملية الاستخراج، وهو مفيد بشكل خاص للمستندات الكبيرة.

الخطوة 1: اضغط على مفاتيح Alt + F11 لفتح محرر VBA

الخطوة 2: أدخل وحدة نمطية جديدة

انقر إدراج علامة التبويب في فتح ميكروسوفت فيسوال باسيك للتطبيقات النافذة، ثم اختر وحدة.

الخطوة 3: أدخل الرمز

انسخ الكود أدناه وألصقه في الوحدة النمطية.

الكود: استخراج مجموعة من الصفحات إلى ملف جديد في مجلد

Sub SaveSpecifiedPagesAsNewDoc()
'UpdatebyKutools
    Dim objNewDoc As Document
    Dim objDoc As Document
    Dim strFolder As String
    Dim strFileName As String
    Dim startPage As Long
    Dim endPage As Long
    Dim startRange As Range
    Dim endRange As Range
    
    ' Initialize
    Set objDoc = ActiveDocument
    
    ' Specify the folder path and file name here
    strFolder = "C:\Users\AddinsVM001\Desktop\pdf\extract pages" ' Example path
    strFileName = "ExtractedPages" ' Example file name
    
    ' Specify start and end pages here
    startPage = 3
    endPage = 4
    
    ' Find the range of the specified pages
    With objDoc
        ' Go to the start of the start page
        .GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=startPage).Select
        Set startRange = Selection.Range
        
        ' Go to the start of the page after the end page, to get the complete end page
        .GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=endPage + 1).Select
        Selection.MoveLeft Unit:=wdCharacter, Count:=1
        Set endRange = Selection.Range
        
        ' Define the range from start to end page
        Set startRange = .Range(Start:=startRange.Start, End:=endRange.End)
       
        
    End With
    
    ' Copy the defined range
    startRange.Copy
    
    ' Open a new document to paste the selection
    Set objNewDoc = Documents.Add
    objNewDoc.Content.Paste
    
    ' Save the new document
    objNewDoc.SaveAs2 FileName:=strFolder & "\" & strFileName & ".docx"
    objNewDoc.Close False
    
    ' Clean up
    Set objNewDoc = Nothing
    Set objDoc = Nothing
    Set startRange = Nothing
    Set endRange = Nothing
    
    MsgBox "Pages " & startPage & " to " & endPage & " have been extracted to " & strFileName & ".docx"
End Sub
 

الخطوة 4: انقر فوق زر التشغيل أو اضغط على المفتاح F5 لتشغيل الكود

بعد تشغيل الكود، سيظهر مربع حوار يخبرك بأنه تم استخراج الصفحات، انقر فوق OK لإغلاقه.

الخطوة 5: انتقل إلى المجلد للتحقق مما إذا تم استخراج الصفحات بشكل صحيح

قم بتقسيم مستندات Word بأكملها إلى ملفات منفصلة بناءً على الصفحات والعناوين والفواصل

إذا كنت تريد استخراج الصفحات لفصل الملفات حسب العناوين 1 أو فواصل الصفحات أو فواصل الأقسام أو الصفحات المحددة، انقسام المستند سمة من سمات كوتولس للكلمة سيكون مساعدا جيدا.

الخطوة 1: تفعيل ميزة تقسيم المستندات

انقر كوتولس بلس > الانقسام لتفعيل الميزة.

الخطوة 2: تخصيص الانقسام الخاص بك

1. تقسيم حسب: اختر المعيار الذي تريد التقسيم عليه.

2. صفحة: إذا اخترت Custom في ال تقسيم حسب القائمة المنسدلة، يجب عليك كتابة أرقام الصفحات في مربع النص هذا.

3. حفظ في: تصفح واختر مجلدًا لتحديد موقع المستندات المقسمة.

4. بادئة المستند: اكتب البادئة لتسمية المستندات المقسمة.

5. OK: انقر لإنهاء التقسيم.

   

الخطوة 3: انتقل إلى المجلد وتحقق من المستندات المقسمة

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

للحصول على إستراتيجيات Word تحويلية إضافية يمكنها تحسين إدارة بياناتك بشكل كبير، استكشاف المزيد هنا..