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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

احفظ المستند الذي أنشأتَه حديثًا بالنقر على «ملف» > «حفظ باسم».

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

تتمثّل طريقة أخرى لاستخراج الصفحات في طباعتها بصيغة PDF، وهي خيارٌ مثالي عندما تريد مشاركة الصفحات المستخرَجة أو حفظها بصيغة مدعومة على نطاق واسع.

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

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

الخطوة 2: اختر «Microsoft Print to PDF»

من قائمة الطابعة المنسدلة، اختر «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: اذهب إلى المجلد وتحقق مما إذا تم استخراج الصفحات بشكل صحيح

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

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

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

انقر على «KUTOOLS PLUS» > «تقسيم» لتفعيل هذه الميزة.

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

1. تقسيم حسب: اختر المعيار الذي ترغب في التقسيم وفقًا له.

2. صفحة: إذا اخترتَ «مخصص» كطريقة للتقسيم، فأدخِل أرقام الصفحات المطلوبة التي ترغب في استخراجها.

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

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

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

   

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

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

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