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

Как удалить несколько определенных страниц в документе Word?

В документе Word вы можете выбрать содержимое текущей страницы, а затем нажать клавишу «Удалить», чтобы легко удалить текущую страницу. Но если вам нужно удалить несколько страниц из большого файла Word, как вы можете быстро решить эту проблему?

Удаление диапазона страниц в документе Word с помощью функции "Перейти"

Удалить несколько определенных страниц в документе Word с кодом VBA


Удаление диапазона страниц в документе Word с помощью функции "Перейти"

Если вы хотите удалить ряд последовательных страниц из документа Word, функция «Перейти» может оказать вам услугу.

1. Запустите документ Word, страницы которого вы хотите удалить.

2, Затем нажмите F5 , чтобы открыть Найти и заменить диалоговое окно под Перейти к вкладку нажмите страница в Иди к чему список, а затем введите номер начальной страницы, с которой вы хотите удалить, и нажмите Enter ключ для перехода на конкретную страницу, см. снимок экрана:

документ удалить несколько страниц 1

2. Затем закройте это Найти и заменить диалоговое окно и нажмите F8 для включения Расширенный режим.

3. Продолжайте нажимать F5 , чтобы открыть Найти и заменить диалоговое окно, на этот раз введите номер конечной страницы, которую вы хотите удалить, а затем нажмите Enter ключ. Выбраны сразу все страницы с 15 по 20. Смотрите скриншот:

документ удалить несколько страниц 2

4. Наконец, нажмите Удалить нажмите кнопку, чтобы сразу удалить эти страницы.


Удалить несколько определенных страниц в документе Word с кодом VBA

Чтобы удалить несколько отдельных страниц в файле Word, которые не являются последовательными, вам может помочь следующий код VBA.

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в окно модуля.

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

документ удалить несколько страниц 3

4. А затем нажмите OK , все указанные вами страницы были удалены сразу.


Выберите несколько отдельных страниц, а затем удалите их сразу:

Если вы хотите удалить несколько определенных страниц из большого документа Word, Kutools for Word's Выбрать страницы может помочь вам сначала выбрать нужные страницы, а затем нажать Удалить ключ, чтобы удалить их сразу.

документ удалить несколько страниц 4

Kutools for Word: с более чем 100 удобными надстройками Word, которые можно попробовать бесплатно без ограничений в течение 60 дней. Нажмите, чтобы загрузить и бесплатную пробную версию сейчас!


Рекомендуемые инструменты для повышения производительности Word

 

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

  • Сложные и повторяющиеся операции можно производить разово за секунды.
  • Вставляйте сразу несколько изображений из папок в документ Word.
  • Объединяйте и объединяйте несколько файлов Word из папок в одну в желаемом порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком, разрывом раздела или другими критериями.
  • Преобразование файлов между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора и т. Д.
Сортировать комментарии по
Комментарии (3)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо за очень полезные решения!!!!!!!!!!!
Этот комментарий был сведен к минимуму модератором на сайте
Благодарю. откуда вы изучаете vba
Этот комментарий был сведен к минимуму модератором на сайте
Ciao, invece per eliminare "rapidamente" in un documento di svariate pagine (около 100) più Fogli Vuoti Non Consecutivi è possibile?
Esiste ип procedimento для eliminare я Fogli vuoti, Senza Doverli andare Ricercare.

Спасибо.
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL