Page オブジェクト (Publisher)

文書内のページを表します。 Pages コレクションには、文書内のすべての ページ オブジェクトが含まれています。

注釈

Pages (インデックス) 使用して、1 つの Page オブジェクトを返します。

Pages オブジェクトの FindByPageID プロパティを使用して、アプリケーションに割り当てられたページ ID を使用して Page オブジェクトを見つけます。

Add メソッドを使用して新しいページを作成し、パブリケーションに追加します。

次の例では、作業中の文書の最初のページの最初の図形に新しいテキストを追加します。

Sub AddPageNumberField() 
 With ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange 
 .InsertAfter " This text is added after the existing text." 
 .Font.Size = 15 
 End With 
End Sub

次の例では、作業中の文書に新しいページを追加し、ページ ID を使用してそのページを検索します。

Sub FindPage() 
 Dim lngPageID As Long 
 
 'Get page ID 
 lngPageID = ActiveDocument.Pages.Add(Count:=1, After:=1).PageID 
 
 'Use page ID to add a new shape to the page 
 ActiveDocument.Pages.FindByPageID(PageID:=lngPageID) _ 
 .Shapes.AddShape Type:=msoShape5pointStar, _ 
 Left:=200, Top:=72, Width:=50, Height:=50 
 
End Sub

メソッド

プロパティ

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。