[CDR 2017-2021] Удаление всех страниц в документе кроме первой

tohaa

Участник
Топикстартер
Сообщения
229
Реакции
8
Добрый день.

Задача:
Удалить с помощью макроса все страницы в документе. Кроме первой.
Не смотря на содержимое страниц. Страниц в документе может быть любое кол-во. Страницы могут быть как пустые так и с содержимым.

Подскажите пожалуйста как это лучше реализовать.
 

Karatau

Участник
Сообщения
60
Реакции
22
Код:
Public Sub DeletePagesExceptFirst()
    Dim pa As Pages, count%, i%
   
    Set pa = ActiveDocument.Pages
    count = pa.count
   
    For i = count To 2 Step -1
        pa(i).Delete
    Next i
   
End Sub
 
  • Спасибо
Реакции: izrukvruki и tohaa

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
Код:
N=ActiveDocument.Pages.Count
For i = 2 To N
ActiveDocument.Pages(2).Delete
Next i
 
Последнее редактирование:
  • Спасибо
Реакции: izrukvruki и tohaa

tohaa

Участник
Топикстартер
Сообщения
229
Реакции
8
Благодарю Вас. Помогли быстро!