通过

TextRange.InsertPageNumber 方法 (Publisher)

  • 项目

返回一个 TextRange 对象，该对象代表出版物中的页码字段。

语法

表达式。InsertPageNumber (Type)

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

参数

名称 必需/可选 数据类型 说明
Type 可选 PbPageNumberType 指定页码是当前页码还是下一个或上一个链接文本框的页码。 可以是 PbPageNumberType 常量之一。

返回值

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