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

[tohaa]

Добрый день.

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

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

 

[Karatau]

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

 

[_MBK_]

N=ActiveDocument.Pages.Count
For i = 2 To N
ActiveDocument.Pages(2).Delete
Next i

 

[tohaa]

Благодарю Вас. Помогли быстро!

 

[lev]

While ActiveDocument.Pages.Count > 1: ActiveDocument.Pages(2).Delete: Wend