Свойство 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 и обратная связь.