通过

Publisher) (Plates.Count 属性

  • 项目

返回 Long 类型值，代表指定集合中项目的数量。

语法

表达式。计数

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

示例

以下示例显示当前文档中页面的数量。

Sub CountNumberOfPages() 
 MsgBox "Your publication contains " & _ 
 ActiveDocument.Pages.Count & " page(s)." 
End Sub

以下示例显示当前文档中形状的数量。

Sub CountNumberOfShapes() 
 Dim intShapes As Integer 
 Dim pg As Page 
 
 For Each pg In ActiveDocument.Pages 
 intShapes = intShapes + pg.Shapes.Count 
 Next 
 
 MsgBox "Your publication contains " & intShapes & " shape(s)." 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。