Объект Pages (издатель)
Представляет все страницы в публикации. Коллекция Pages содержит все объекты Page в публикации.
Используйте метод Add , чтобы добавить новую страницу в публикацию.
В следующем примере к активной публикации добавляется новая страница и фигура.
Sub AddPageAndShape()
With ActiveDocument.Pages.Add(Count:=1, After:=1)
With .Shapes.AddShape(Type:=msoShape5pointStar, _
Left:=72, Top:=72, Width:=50, Height:=50)
.Fill.ForeColor.RGB = RGB(Red:=128, Green:=50, Blue:=255)
.Line.ForeColor.RGB = RGB(Red:=75, Green:=50, Blue:=255)
End With
End With
End Sub
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.