PageSetup.AvailablePageSizes 属性 (Publisher)

返回 PageSizes 集合，该集合包含当前出版物中可用的所有 PageSize 对象。

语法

表达式。AvailablePageSizes

表达 一个代表 PageSetup 对象的变量。

返回值

PageSizes

备注

PageSize 对象对应于下 空白纸张尺寸在 Microsoft 发布用户界面中的 页面设置对话框中显示的图标。

由 AvailablePageSizes 属性返回的页面大小包括由 Microsoft Publisher 提供页面大小不仅自定页面大小创建或下载，如果有的话。

当您添加或删除自定义页面大小时，所有现有页面大小的索引编号可能更改。

示例

下面的 Microsoft Visual Basic for Applications (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 支持和反馈，获取有关如何接收支持和提供反馈的指南。