كيفية حذف عدة صفحات محددة في مستند Word؟
يمكن أن يكون حذف الصفحات يدويًا في Word أمرًا مملًا، خاصة إذا كنت تعمل على مستند كبير. بينما يمكن أن يعمل تحديد الصفحة والضغط على مفتاح الحذف لصفحة واحدة، فإن إزالة صفحات متعددة يتطلب طرقًا أكثر كفاءة. يقدم هذا الدليل ثلاث حلول عملية لحذف صفحات محددة أو نطاق من الصفحات في Word:
حذف نطاق من الصفحات باستخدام ميزة الانتقال إلى
حذف صفحات متعددة محددة باستخدام Kutools for Word
حذف صفحات متعددة محددة باستخدام كود VBA
حذف نطاق من الصفحات في مستند Word باستخدام ميزة الانتقال إلى
إذا كنت ترغب في حذف نطاق من الصفحات المتتالية من مستند Word، يمكن لميزة الانتقال إلى أن تساعدك في إكمال المهمة بسرعة. اتبع الخطوات التالية:
- افتح مستند Word الذي تريد حذف الصفحات منه.
- اضغط F5 لفتح مربع الحوار البحث والاستبدال. أدخل رقم الصفحة الأولى من النطاق الذي تريد حذفه واضغط Enter.
- أغلق مربع الحوار البحث والاستبدال، ثم اضغط F8 لتشغيل وضع التمديد.
- اضغط F5 مرة أخرى لإعادة فتح مربع الحوار البحث والاستبدال. هذه المرة، أدخل رقم الصفحة الأخيرة من النطاق الذي تريد حذفه واضغط Enter. سيتم تحديد جميع الصفحات من الصفحة الأولى حتى الصفحة قبل الأخيرة.
- أخيرًا، اضغط حذف لإزالة الصفحات المحددة دفعة واحدة.
ملاحظة: اضغط Esc للخروج من وضع التمديد.
حذف صفحات متعددة محددة باستخدام Kutools for Word
إذا كنت بحاجة إلى حذف صفحات متعددة محددة من مستند Word كبير، تتيح لك ميزة تحديد الصفحات في Kutools for Word اختيار وإزالة الصفحات المطلوبة بسهولة. اتبع الخطوات التالية:
- افتح مستند Word الذي تريد تعديله، وانقر على Kutools > تحديد > صفحات > تحديد الصفحات.
- في تحديد الصفحات مربع الحوار الذي يظهر، اختر أحد الخيارات التالية:
- تحديد الصفحات وفقًا للنطاق: حدد نطاقًا من الصفحات لاختيار صفحات متعددة متتالية.
- تحديد الصفحات وفقًا للاختيار: حدد الصفحات غير المتتالية يدويًا عن طريق النقر عليها بشكل فردي.
- انقر موافق لتحديد الصفحات المطلوبة. ثم اضغط مفتاح الحذف لإزالتها جميعًا دفعة واحدة.
حذف صفحات متعددة محددة في مستند Word باستخدام كود VBA
إذا كنت بحاجة إلى حذف صفحات متعددة غير متتالية من مستند Word، يمكن أن يساعدك الكود التالي لـ VBA في تحقيق ذلك بكفاءة.
- اضغط مع الاستمرار على Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.
- انقر إدراج > وحدة، والصق الكود التالي لـ VBA في نافذة الوحدة:
Sub DeletePagesInDoc() Dim xRange As Range Dim xPage As String Dim xDoc As Document Dim xArr Dim I, xSplitCount As Long Application.ScreenUpdating = False Set xDoc = ActiveDocument xPage = InputBox("Enter the page numbers of pages to be deleted: " & vbNewLine & _ "use comma to separate numbers", "KuTools for Word", "") xArr = Split(xPage, ",") xPageCount = UBound(xArr) For I = xPageCount To 0 Step -1 Selection.GoTo wdGoToPage, wdGoToAbsolute, xArr(I) xDoc.Bookmarks("\Page").Range.Delete Next Application.ScreenUpdating = True End Sub
- اضغط F5 لتشغيل الكود. ستظهر مربع مطالبة يطلب منك إدخال أرقام الصفحات التي تريد حذفها. افصل بين أرقام الصفحات بفاصلة. انظر لقطة الشاشة:
- انقر زر موافق، وسيتم حذف جميع الصفحات المحددة فورًا.
أفضل أدوات زيادة الإنتاجية لمكتبك
Kutools لـ Word - ارتقِ بتجربتك في Word مع أكثر من 100 ميزة رائعة!
🤖 ميزات الذكاء الاصطناعي في Kutools: مساعد الذكاء الاصطناعي / مساعد الوقت الحقيقي / تلميع فائق (يحافظ على التنسيقات) / ترجمة فائقة (يحافظ على التنسيقات) / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي...
📘 إتقان المستندات: تقسيم الصفحات / دمج المستندات / تصدير النطاق إلى تنسيقات متعددة (PDF/TXT/DOC/HTML...) / تحويل جماعي إلى PDF...
✏ تحرير النص: البحث والاستبدال الجماعي عبر ملفات متعددة / تغيير حجم جميع الصور / تحويل صفوف وأعمدة الجدول / تحويل الجدول إلى نص...
🧹 تنظيف سهل: إزالة المسافات الزائدة / فواصل الأقسام / مربعات النص / الروابط التشعبية / للمزيد من أدوات الإزالة، انتقل إلى مجموعة إزالة...
➕ إدراجات مبتكرة: إدراج الفواصل بالألاف / مربعات اختيار / أزرار راديو / رمز QR / باركود / عدة صور / اكتشف المزيد ضمن مجموعة إدراج...
🔍 تحديدات دقيقة: تحديد صفحات محددة / جداول / أشكال / فقرات عنوان / عزز التنقل بالمزيد من ميزات تحديد النطاق...
⭐ تحسينات مميزة: التنقل إلى أي نطاق / إدراج تلقائي للنص المتكرر / التبديل بين نوافذ المستند / 11 أداة تحويل...
🌍 يدعم أكثر من40 لغة: استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية وأكثر من40 لغة أخرى!

✨ Kutools لـ Office – تثبيت واحد، خمس أدوات قوية!
يشمل Office Tab Pro · Kutools لـ Excel · أدوات Kutools لـ Outlook · Kutools لـ Word · Kutools لـ PowerPoint
📦 احصل على جميع الأدوات الخمسة في مجموعة واحدة | 🔗 تكامل سلس مع Microsoft Office | ⚡ وفر وقتك وزد إنتاجيتك فوراً
أفضل أدوات زيادة الإنتاجية لمكتبك
Kutools لـ Word - 100+ أدوات لـ Word
- 🤖 ميزات الذكاء الاصطناعي في Kutools: مساعد الذكاء الاصطناعي / مساعد الوقت الحقيقي / تلميع فائق / ترجمة فائقة / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي
- 📘 إتقان المستندات: تقسيم الصفحات / دمج المستندات / تحويل جماعي إلى PDF
- ✏ تحرير النص: البحث والاستبدال الجماعي / تغيير حجم جميع الصور
- 🧹 تنظيف سهل: إزالة المسافات الزائدة / إزالة فواصل الأقسام
- ➕ إدراجات مبتكرة: إدراج الفواصل بالألاف / إدراج مربعات اختيار / إنشاء رمز QR
- 🌍 يدعم أكثر من40 لغة: Kutools يتحدث لغتك – أكثر من40 لغة مدعومة!