Note: The other languages of the website are Google-translated. Back to English

Як видалити кілька конкретних сторінок у документі Word?

У документі Word можна вибрати поточний вміст сторінки, а потім натиснути клавішу Delete, щоб легко видалити поточну сторінку. Але якщо вам потрібно видалити кілька сторінок із великого файлу Word, як би ви могли це швидко вирішити?

Видаліть ряд сторінок у документі Word за допомогою функції "Перейти"

Видаліть кілька конкретних сторінок у документі Word за допомогою коду VBA


Видаліть ряд сторінок у документі Word за допомогою функції "Перейти"

Якщо ви хочете видалити ряд послідовних сторінок із документа Word, функція «Перейти до» може зробити вам послугу.

1. Запустіть документ Word, який потрібно видалити.

2. Потім натисніть F5 ключ, щоб відкрити Знайти і замінити у діалоговому вікні під Перейти до вкладка, клацніть сторінка в Перейти до чого і введіть номер початкової сторінки, з якої потрібно видалити, і натисніть вводити клавіша для переходу на конкретну сторінку, див. знімок екрана:

doc видалити кілька сторінок 1

2. Потім закрийте це Знайти і замінити діалогове вікно та натисніть F8 ввімкнути Режим розширення.

3. Продовжуйте натискати F5 ключ, щоб відкрити Знайти і замінити цього разу введіть номер кінцевої сторінки, яку потрібно видалити, а потім натисніть вводити ключ. Усі сторінки від 15 до 20 були відібрані відразу. Дивіться знімок екрана:

doc видалити кілька сторінок 2

4. Нарешті натисніть видаляти для прямого видалення цих сторінок.


Видаліть кілька конкретних сторінок у документі Word за допомогою коду VBA

Щоб видалити кілька конкретних сторінок у файлі Word, які не є послідовними, наведений нижче код VBA може вам допомогти.

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у вікно модуля.

Код VBA: Видалення декількох певних сторінок у файлі Word:

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 клавішу для запуску цього коду, і з'явиться підказка, щоб нагадати вам про введення номерів сторінок, які ви хочете видалити, розділіть номери сторінок комами, див. знімок екрана:

doc видалити кілька сторінок 3

4. А потім натисніть OK кнопку, усі вказані вами сторінки видалено відразу.


Виберіть декілька окремих сторінок, а потім видаліть їх одночасно:

Якщо ви хочете видалити кілька конкретних сторінок з великого документа Word, Kutools для Word's Виберіть Сторінки Ця функція може допомогти вам вибрати спочатку будь-які сторінки, а потім натисніть видаляти , щоб видалити їх відразу.

doc видалити кілька сторінок 4

Kutools для Word: з більш ніж 100 зручними надбудовами Word, спробуйте безкоштовно без обмежень протягом 60 днів. Клацніть, щоб завантажити та безкоштовну пробну версію зараз!


Рекомендовані засоби підвищення продуктивності слів

 

Kutools для Word - Більше 100 вдосконалених функцій для Word, економите свій 50% часу

  • Складні та повторювані операції можна виконати одноразово за кілька секунд.
  • Вставте кілька зображень між папками в документ Word одночасно.
  • Об’єднайте та об’єднайте декілька файлів Word у папках в одне із потрібним замовленням.
  • Поділіть поточний документ на окремі документи відповідно до заголовка, розділу розділу чи інших критеріїв.
  • Перетворюйте файли між Doc та Docx, Docx та PDF, колекцією інструментів для загальних перетворень та виділення тощо ...
Коментарі (3)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Дякую за дуже корисні рішення!!!!!!!!!!!!
Цей коментар був мінімізований модератором на сайті
Спасибі. звідки ви вивчаєте vba
Цей коментар був мінімізований модератором на сайті
Ciao, invece per eliminare "rapidamente" in un documento di svariate pagine (circa 100) you fogli vuoti non consecutivi è possibile?
Esiste un procedimento per eliminare i fogli vuoti, senza doverli andare a ricercare.

Спасибо.
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL