Page.PageNumber プロパティ (Publisher)

  • [アーティクル]

現在のページ番号を表す 文字列 を返します。 読み取り専用です。

構文

式。PageNumber

式Page オブジェクトを表す変数。

戻り値

String

例

次の使用例は、テキスト ボックスを作成して現在のページ番号を取得し、それを新しいテキストで新しい図形に挿入します。

Sub GetPageNumber() 
 Dim strPageNumber As String 
 With ActiveDocument.Pages(1) 
 strPageNumber = .PageNumber 
 .Shapes.AddTextbox(Orientation:=pbTextOrientationHorizontal, _ 
 Left:=100, Top:=100, Width:=100, Height:=100) _ 
 .TextFrame.TextRange.InsertAfter NewText:="This is page " _ 
 & strPageNumber & " of " & .Parent.Count & "." 
 End With 
End Sub

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

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