Основы офисного программирования и документы Word

Dim SR As TableOfFiguresRange Dim


Public Sub HowManyShapes() Dim SR As TableOfFiguresRange Dim SH As TableOfFigures Set SR = Selection.ShapeRange For Each SH In SR Debug.Print SH.Name Next SH Debug.Print Selection.ShapeRange.Count End Sub
Листинг 1.34.
Закрыть окно
Содержание раздела