تقسيم واستخراج الصفحات من مستندات Word الخاصة بك (4 طرق)

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

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

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

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

فيديو: استخراج صفحات في Word

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

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

استخراج الصفحات باستخدام ميزة النسخ واللصق – يدويًا

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

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

ضع المؤشر في بداية المحتويات التي تريد نسخها، ثم انتقل لأسفل إلى نهاية المحتويات، واضغط مع الاستمرار على مفتاح Shift، وانقر في نهاية المحتويات.

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

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

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

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

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

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

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

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

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

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

الخطوة 2: حدد طباعة إلى PDF من Microsoft

من القائمة المنسدلة للطابعة، اختر "Microsoft Print to PDF".

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

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

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

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

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

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

  

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

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

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

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

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

الخطوة 2: إدراج وحدة جديدة

في نافذة "Microsoft Visual Basic for Applications" المفتوحة، انقر فوق علامة التبويب "إدراج"، ثم اختر "وحدة".

الخطوة 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 لتشغيل الكود

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

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

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

إذا كنت ترغب في استخراج الصفحات إلى ملفات منفصلة بناءً على العنوان 1، فواصل الصفحات، فواصل الأقسام، أو أرقام صفحات محددة، يمكن أن تساعدك ميزة "تقسيم المستند" من Kutools for Word في إنجاز المهمة بسرعة وكفاءة.

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

انقر فوق "Kutools Plus" > "تقسيم" لتفعيل الميزة.

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

1. تقسيم بواسطة: اختر المعيار الذي تريد التقسيم بناءً عليه.

2. صفحة: إذا اخترت "مخصص" كطريقة التقسيم، أدخل أرقام الصفحات المحددة التي تريد استخراجها.

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

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

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

   

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

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

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