PageSetup.AvailablePageSizes 屬性 (Publisher)

會傳回 PageSizes 集合，其中包含目前出版物中可用的所有 PageSize 物件。

語法

運算式。AvailablePageSizes

表達 代表 PageSetup 物件的 變數。

傳回值

PageSizes

註解

PageSize 物件會對應至 [ 版面設定] 對話方塊中的 Microsoft Publisher 使用者介面中的 空白頁面大小] 底下顯示的圖示。

由 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 支援與意見反應。