Поделиться через


Свойство Tags.Count (Издатель)

Возвращает значение Long , представляющее количество элементов в указанной коллекции.

Синтаксис

expression. Рассчитывать

Выражение Переменная, представляющая объект Tags .

Пример

В этом примере отображается количество страниц в активном документе.

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 и обратная связь.