Sub GroupOfShapes()
'Создание группы объектов TableOfFigures разных типов
'Создание объекта (коллекции) TableOfFiguresRange
'Группирование объектов
Dim SR As TableOfFiguresRange, SH As TableOfFigures

With ActiveDocument.shapes
	'Добавляем текстовое окно. Координаты Left-Top-Width-Height относительно якоря
	.AddTextbox(msoTextOrientationHorizontal, 220, _
		40, 120, 30).Select
	Selection.ShapeRange.Name = "Parts"
	Selection.ShapeRange.TextFrame.TextRange.Select
	Selection.Collapse
	Selection.TypeText Text:="Части документа"
	Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
	'Добавляем стрелку
	.AddLine(280, 70, 280, 100).Select
	Selection.ShapeRange.Name = "Ar1"
	Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
	'Добавляем линию
	.AddLine(120, 100, 440, 100).Select
	Selection.ShapeRange.Name = "Lin1"
	'Добавляем стрелку
	.AddLine(120, 100, 120, 130).Select
	Selection.ShapeRange.Name = "Ar2"
	Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
	'Добавляем стрелку
	.AddLine(440, 100, 440, 130).Select
	Selection.ShapeRange.Name = "Ar3"
	Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
	'Добавляем текстовое окно
	.AddTextbox(msoTextOrientationHorizontal, 80, _
		130, 120, 30).Select
	Selection.ShapeRange.Name = "Part1"
	Selection.ShapeRange.TextFrame.TextRange.Select
	Selection.Collapse
	Selection.TypeText Text:="Рисунки"
	'Добавляем текстовое окно
	.AddTextbox(msoTextOrientationHorizontal, 400, _
		130, 120, 30).Select
	Selection.ShapeRange.Name = "Part2"
	Selection.ShapeRange.TextFrame.TextRange.Select
	Selection.Collapse
	Selection.TypeText Text:="Таблицы"
	
	'Группирование объектов
	Set SR = .Range(Array("Parts", "Ar1", "Lin1", _
		"Ar2", "Ar3", "Part1", "Part2"))
	SR.Select
	HowManyShapes
	Set SH = SR.Group
	SH.Name = "Fig.1"
	SH.Select
	HowManyShapes
End With

End Sub