Publisher.Hyperlinks.Count.md

title	keywords	f1_keywords	api_name	ms.assetid	ms.date	ms.localizationpriority
Hyperlinks.Count property (Publisher)	vbapb10.chm6881283	vbapb10.chm6881283	Publisher.Hyperlinks.Count	36747f3e-b365-11ca-9cbe-f6148f7da235	06/08/2019	medium

Hyperlinks.Count property (Publisher)

Returns a Long that represents the number of items in the specified collection.

Syntax

expression.Count

expression A variable that represents a Hyperlinks object.

Example

This example displays the number of pages in the active document.

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

This example displays the number of shapes in the active document.

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

[!includeSupport and feedback]