Page.PageNumber 属性 (Publisher)

返回一个 字符串 ，表示当前页码。 此为只读属性。

语法

表达式。PageNumber

表达 一个代表 Page 对象的变量。

返回值

字符串

示例

以下示例创建一个文本框，获取当前页码，并将其与新的文字一起插入到新的形状中。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。