Прочитать на английском

Поделиться через


Свойство Page.PageType (Издатель)

Возвращает константу PbPageType , представляющую тип страницы. Только для чтения.

Синтаксис

expression. PageType

Выражение Переменная, представляющая объект Page .

Возвращаемое значение

PbPageType

Замечания

Значение свойства PageType может быть одной из констант PbPageType , объявленных в библиотеке типов издателя Майкрософт.

Пример

В этом примере добавляется фигура в чередуюющиеся углы каждой страницы в активной публикации.

Sub GetPageType() 
 Dim pgCount As Page 
 For Each pgCount In ActiveDocument.Pages 
 If pgCount.PageType = pbPageLeftPage Then 
 pgCount.Shapes.AddShape Type:=msoShapeOval, _ 
 Left:=50, Top:=50, Width:=50, Height:=50 
 ElseIf pgCount.PageType = pbPageRightPage Then 
 pgCount.Shapes.AddShape Type:=msoShapeOval, _ 
 Left:=512, Top:=50, Width:=50, Height:=50 
 End If 
 Next 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.