Свойство PageSetup.AvailablePageSizes (Publisher)

Возвращает коллекцию PageSizes , содержащую все объекты PageSize , доступные в текущей публикации.

Синтаксис

expression. AvailablePageSizes

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

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

PageSizes

Замечания

Объекты PageSize соответствуют значкам, отображаемым в разделе Размеры пустой страницы в диалоговом окне Параметры страницы в пользовательском интерфейсе Издателя Майкрософт.

Размеры страниц, возвращаемые свойством AvailablePageSizes , включают не только размеры страниц, предоставляемые издателем Майкрософт, но и настраиваемые размеры страниц, которые вы создаете или скачиваете, если таковые имеются.

При добавлении или удалении настраиваемых размеров страниц номер индекса для всех существующих размеров страниц может измениться.

Пример

В следующем макросе Microsoft Visual Basic для приложений (VBA) показано, как создать текстовый файл, содержащий список всех размеров страниц, доступных в текущей публикации, и соответствующие им номера индексов. Текстовый файл сохраняется в папке "Документы" или "Мои документы" текущего пользователя.

Public Sub AvailablePageSizes_Example() 
 
 Dim pubPageSize As Publisher.PageSize 
 Dim pubPageSizes As Publisher.PageSizes 
 Dim intCount As Integer 
 Dim lngPageSizeFile As Long 
 
 intCount = 1 
 
 Set pubPageSizes = ThisDocument.PageSetup.AvailablePageSizes 
 
 lngPageSizeFile = FreeFile 
 Open Environ("USERPROFILE") + "\My Documents\PageSizeList.txt" For Output Access Write As lngPageSizeFile 
 
 For Each pubPageSize In pubPageSizes 
 Write #lngPageSizeFile, pubPageSize.Name, intCount 
 intCount = intCount + 1 
 Next 
 
 Close lngPageSizeFile 
 
End Sub

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

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