次の方法で共有


Documents.Count プロパティ (Publisher)

指定したコレクション内のオブジェクトの数を示す長整数型 (Long) の値を取得します。

構文

カウント

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

次の使用例は、作業中の文書のページ数を表示します。

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 のサポートおよびフィードバックを参照してください。