Перейти к основному содержанию

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

Лучшие инструменты для офисной работы

Kutools for Word - Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!

🤖 Kutools AI Помощник: Преобразуйте свое письмо с помощью искусственного интеллекта. Создать контент  /  Переписать текст  /  Обобщение документов  /  Запросить информацию на основе документа, все в Word

📘 Владение документами: Разделить страницы  /  Объединить документы  /  Экспортировать выбранное в различные форматы (PDF/TXT/DOC/HTML...)  /  Пакетное преобразование в PDF  /  Экспортировать страницы как изображения  /  Печать нескольких файлов одновременно...

Редактирование содержания: Пакетный поиск и замена через несколько файлов  /  Изменить размер всех изображений  /  Транспонировать строки и столбцы таблицы  /  Преобразовать таблицу в текст...

🧹 Легкая очистка: Убрать Дополнительные места  /  Разрывы разделов  /  Все заголовки  /  Текстовые поля  /  Гиперссылки  / Чтобы получить дополнительные инструменты для удаления, посетите наш Удалить группу...

Креативные вставки: Вставлять Разделители тысяч  /  Флажки  /  радио кнопки  /  QR код  /  Штрих-код  /  Таблица диагональных линий  /  Заголовок уравнения  /  Заголовок изображения  /  Заголовок таблицы  /  Несколько изображений  / Узнайте больше в Вставить группу...

???? Точный выбор: Точно определить конкретные страницы  /  Эта таблица  /  формы  /  заголовки абзацев  / Улучшите навигацию с помощью БОЛЕЕ Выберите функции...

Звездные улучшения: Быстро перемещайтесь в любое место  /  автоматическая вставка повторяющегося текста  /  плавно переключаться между окнами документов  /  11 инструментов преобразования...

👉 Хотите попробовать эти функции? Kutools for Word предлагает 60-дневная бесплатная пробная версия, без ограничений! 🚀
 
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ciao, invece per eliminare "rapidamente" in un documento di svariate pagine (circa 100) più fogli vuoti non consecutivi è possibile?
Esiste un procedimento per eliminare i fogli vuoti, senza doverli andare a ricercare.

Grazie.
This comment was minimized by the moderator on the site
thanks. from where you learn the vba
This comment was minimized by the moderator on the site
Thanks for very helpful solutions!!!!!!!!!!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations