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

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

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

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

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

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

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

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

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

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

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

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

---

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

 

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

• Складні та повторювані операції можна виконати одноразово за кілька секунд.
• Вставте кілька зображень між папками в документ Word одночасно.
• Об’єднайте та об’єднайте декілька файлів Word у папках в одне із потрібним замовленням.
• Поділіть поточний документ на окремі документи відповідно до заголовка, розділу розділу чи інших критеріїв.
• Перетворюйте файли між Doc та Docx, Docx та PDF, колекцією інструментів для загальних перетворень та виділення тощо ...

Детальніше Завантажити зараз Купити