نسخ صفحات حالية أو محددة من مستند Word (دليل شامل)

يُعد نسخ صفحة واحدة أو نطاق من الصفحات من مستند Word مهمة شائعة أثناء التحرير أو إعادة استخدام المحتوى أو إنشاء مقاطع مخصصة. وعلى الرغم من أن Microsoft Word لا يحتوي على زر مخصص باسم «نسخ الصفحة»، إلا أن هناك عدة طرق فعّالة لتحقيق ذلك—سواء كنت تبحث عن حل سريع لصفحة واحدة أو طريقة موثوقة لاستخراج صفحات متعددة دفعة واحدة.

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

• باستخدام اختصار لوحة المفاتيح
• باستخدام Kutools for Word

نسخ صفحات محددة أو متعددة في مستند Word

• باستخدام ميزة الانتقال إلى (Go To)
• باستخدام كود VBA
• باستخدام Kutools for Word

الخاتمة

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

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

الطريقة 1: نسخ الصفحة الحالية باستخدام اختصار لوحة المفاتيح

1. ضع المؤشر في بداية الصفحة التي ترغب في نسخها.
2. انقر واسحب الماوس للأسفل لتحديد جميع المحتوى الموجود في تلك الصفحة.
3. حرّر زر الماوس عند وصولك إلى أسفل الصفحة بعد الانتهاء من تحديد كل العناصر.
4. اضغطCtrl + C على لوحة المفاتيح لنسخ المحتوى المحدد.
5. ثم اضغطCtrl + V للصق المحتوى المنسوخ في أي مكان تريده.

الطريقة 2: نسخ الصفحة الحالية باستخدام Kutools for Word (سريعة ودقيقة)

يوفر Kutools for Word أمرًا بنقرة واحدة يتيح لك نسخ الصفحة الحالية فورًا، دون الحاجة إلى تحديد المحتوى يدويًّا أو القلق بشأن فقدان النصوص أو الصور أو التنسيق.

1. انقر في أي مكان على الصفحة التي ترغب في نسخها.
2. ثم انقرKUTOOLS PLUS>نسخ الصفحة>نسخ النسخة الحالية، انظر لقطة الشاشة:
   
3. سيظهر مربع تأكيد يفيد بأنه تم نسخ الصفحة الحالية. بعد ذلك، يمكنك الضغط علىCtrl + V لصق المحتوى في أي مكان تحتاجه.
   

يتم نسخ الصفحة الحالية بشكلٍ نظيف ودقيق—بدون أي محتوى إضافي أو تخمين.

نسخ صفحات محددة أو متعددة في مستند Word

عندما تحتاج إلى استخراج نطاق متصل (مثل الصفحات من 5 إلى 10) أو صفحات محددة غير متصلة، تضمن الطرق التالية التقاط كل سطر نصي وصورة وتفاصيل التنسيق بدقة—بدون أي حذف أو محتوى غير مرغوب فيه.

الطريقة 1: نسخ نطاق متصل من الصفحات باستخدام ميزة الانتقال إلى

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

1. اضغطCtrl + G لفتح مربع حوارالبحث والاستبدال. ضمن علامة التبويبالانتقال إلى، اكتب رقم الصفحة الأولى التي تريد نسخها (مثلًا، 5)، ثم اضغطEnter. وسيوضع مؤشرك الآن بدقة في أعلى تلك الصفحة.
   
2. أغلق مربع الحوار واضغطF8. سيؤدي ذلك إلى تثبيت المؤشر، ما يُخبر Word بضرورة تحديد كل شيء من هذه النقطة فصاعدًا.
3. اضغطCtrl + G مرة أخرى. ولضمان التقاط الصفحة الأخيرة بالكامل، اكتب رقم الصفحة التي تلي النطاق مباشرةً (على سبيل المثال، إذا كنت تريد حتى الصفحة 10، فاكتب 11). ثم اضغطEnter، وسيقوم Word فورًا بتمييز كل الأحرف والصور والجداول بين هاتين النقطتين.
   
4. بعد ذلك، أغلق مربع الحوار واضغطCtrl + C لنسخ المحتوى الموجود ضمن الصفحات.
5. في النهاية، اضغطCtrl + V لصق المحتوى في أي مكان تحتاجه.
6. بمجرد الانتهاء، اضغطEsc للخروج من وضع التمديد.

الطريقة 2: نسخ نطاق متصل من الصفحات باستخدام كود VBA

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

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

Sub CopyPages_BySingleRangeInput()
    Dim PageInput As String
    Dim StartPage As Long
    Dim EndPage As Long
    Dim TotalPages As Long
    Dim Parts() As String
    Dim StartRange As Range
    Dim EndRange As Range
    Dim CopyRange As Range
    TotalPages = ActiveDocument.ComputeStatistics(wdStatisticPages)
    PageInput = InputBox( _
        "Enter page range (for example: 2-5 or 3)." & vbCrLf & _
        "Total pages: " & TotalPages, _
        "Copy Pages")

    If Trim(PageInput) = "" Then Exit Sub
    If InStr(PageInput, "-") > 0 Then
        Parts = Split(PageInput, "-")
        If UBound(Parts) <> 1 Or _
           Not IsNumeric(Trim(Parts(0))) Or _
           Not IsNumeric(Trim(Parts(1))) Then
            MsgBox "Invalid format. Use: 2-5 or 3", vbCritical
            Exit Sub
        End If
        StartPage = CLng(Trim(Parts(0)))
        EndPage = CLng(Trim(Parts(1)))
    Else
        If Not IsNumeric(PageInput) Then
            MsgBox "Invalid page number.", vbCritical
            Exit Sub
        End If
        StartPage = CLng(PageInput)
        EndPage = StartPage
    End If
    If StartPage < 1 Or EndPage < StartPage Or EndPage > TotalPages Then
        MsgBox "Page range is out of bounds.", vbCritical
        Exit Sub
    End If
    Set StartRange = ActiveDocument.GoTo( _
        What:=wdGoToPage, _
        Which:=wdGoToAbsolute, _
        Count:=StartPage)
    If EndPage >= TotalPages Then
        Set EndRange = ActiveDocument.Content
        EndRange.Collapse wdCollapseEnd
    Else
        Set EndRange = ActiveDocument.GoTo( _
            What:=wdGoToPage, _
            Which:=wdGoToAbsolute, _
            Count:=EndPage + 1)
    End If
    Set CopyRange = ActiveDocument.Range(StartRange.Start, EndRange.Start)
    CopyRange.Copy

    MsgBox "Pages " & StartPage & " to " & EndPage & _
           " have been copied to the clipboard.", vbInformation
End Sub
  

3. اضغطF5 لتشغيل الكود. سيظهر مربع تأكيد يتيح لك إدخال نطاق الصفحات أو الصفحة المحددة التي تريد نسخها. انظر لقطة الشاشة:
   
4. انقر على زرموافق، وسيظهر مربع حوار يؤكد أن تحديد الصفحات قد تم نسخه إلى الحافظة. ثم انقرموافقلإغلاقه.
   
5. يمكنك الآن الضغط علىCtrl + V لصق المحتوى المنسوخ في أي مكان تحتاجه.

الطريقة 3: نسخ صفحات محددة أو نطاق متصل من الصفحات باستخدام Kutools for Word

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

1. انتقل إلى علامة التبويبKUTOOLS PLUS، ثم انقرنسخ الصفحة>نسخ صفحة محددة، انظر لقطة الشاشة:
   
2. في مربع الحوار، أدخل رقم الصفحة (مثلًا: 10) أو نطاقًا متصلًا من الصفحات (مثلًا: 10–15) الذي ترغب في نسخه.
   
3. انقرموافق، وسيظهر مربع تأكيد يفيد بأنه تم نسخ الصفحات المحددة. بعد ذلك، يمكنك الضغط علىCtrl + V لصق المحتوى في أي مكان تحتاجه.
   

الخاتمة

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