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

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

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

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

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

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

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

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

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

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

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

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

---

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

 

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

• Сложные и повторяющиеся операции можно производить разово за секунды.
• Вставляйте сразу несколько изображений из папок в документ Word.
• Объединяйте и объединяйте несколько файлов Word из папок в одну в желаемом порядке.
• Разделите текущий документ на отдельные документы в соответствии с заголовком, разрывом раздела или другими критериями.
• Преобразование файлов между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора и т. Д.

Узнать больше Загрузить сейчас покупка