次の方法で共有


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 のサポートおよびフィードバックを参照してください。