次の方法で共有

TextRange.InsertPageNumber メソッド (Publisher)

  • [アーティクル]

文書のページ番号フィールドを表す TextRange オブジェクトを返します。

構文

式。InsertPageNumber (型)

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

パラメーター

名前 必須 / オプション データ型 説明
Type 省略可能 PbPageNumberType 現在のページ番号、あるいはリンクされているテキスト ボックスの次または前のページ番号のいずれをページ番号とするかを指定します。 PbPageNumberType クラスの定数の 1 つを指定できます。

戻り値

TextRange

例

次の使用例は、各ページの上端に現在のページ番号が表示されるように、マスター ページの図形にページ番号フィールドを挿入します。

Sub PageNumberShape() 
 With ActiveDocument.MasterPages(1).Shapes _ 
 .AddShape(Type:=msoShape5pointStar, Left:=36, _ 
 Top:=36, Width:=50, Height:=50) 
 With .TextFrame.TextRange 
 .InsertPageNumber 
 .ParagraphFormat.Alignment = pbParagraphAlignmentCenter 
 End With 
 .Fill.ForeColor.RGB = RGB(Red:=125, Green:=125, Blue:=255) 
 End With 
End Sub

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

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