Public Sub >WorkWithAutoLabels()
 'Работа с коллекцией автозаголовков
	 Dim Item  As AutoCaption
 
		Debug.Print AutoCaptions.Count
		For Each Item  In AutoCaptions
			'Включение автоматической вставки заголовка
			item.AutoInsert = True
			Debug.Print Item .Name
		Next Item
		
	End Sub