كيفية حذف عدة صفحات محددة في مستند Word؟

في مستند Word ، يمكنك تحديد محتوى الصفحة الحالية ، ثم الضغط على مفتاح Delete لحذف الصفحة الحالية بسهولة. ولكن ، إذا كنت بحاجة إلى إزالة عدة صفحات من ملف Word كبير ، فكيف يمكنك حلها بسرعة؟

احذف نطاقًا من الصفحات في مستند Word باستخدام ميزة Go To

احذف عدة صفحات محددة في مستند Word برمز VBA

احذف نطاقًا من الصفحات في مستند Word باستخدام ميزة Go To

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

1. قم بتشغيل مستند Word الذي تريد حذف الصفحات.

2. ثم اضغط F5 مفتاح لفتح بحث واستبدال مربع الحوار ، تحت إذهب إلى ، انقر فوق صفحة في ال اذهب إلى ماذا قائمة ، ثم أدخل رقم صفحة البداية التي تريد الحذف منها ، واضغط على أدخل مفتاح للذهاب إلى الصفحة المحددة ، انظر الصورة:

2. ثم أغلق هذا بحث واستبدال مربع الحوار ، واضغط على F8 لتشغيل تمديد الوضع.

3. استمر بالضغط F5 مفتاح لفتح بحث واستبدال في مربع الحوار ، هذه المرة ، أدخل رقم الصفحة النهائية التي تريد حذفها ، ثم اضغط على أدخل مفتاح. تم تحديد جميع الصفحات من 15 إلى 20 مرة واحدة. انظر لقطة الشاشة:

4. أخيرًا ، اضغط على حذف مفتاح مباشرة لحذف هذه الصفحات مرة واحدة.

احذف عدة صفحات محددة في مستند Word برمز VBA

لحذف عدة صفحات محددة في ملف Word غير متتالية ، يمكن أن يساعدك رمز VBA التالي.

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق التعليمة البرمجية التالية في نافذة الوحدة النمطية.

رمز فبا: حذف عدة صفحات محددة في ملف وورد:

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

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، ويظهر مربع موجه لتذكيرك بإدخال أرقام الصفحات التي تريد حذفها ، يرجى فصل أرقام الصفحات بفاصلة ، انظر لقطة الشاشة:

4. ثم انقر فوق OK زر ، تم حذف جميع الصفحات التي حددتها مرة واحدة.

---

أدوات إنتاجية Word الموصى بها

 

Kutools For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪

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

التفاصيل حمل التطبيق الآن شراء