Public Sub WorkWithTablesOfFigures()
'Работа с таблицами ссылок на иллюстрации документа
	Dim DocPath As String
	Dim myr As Range
	Dim ToF As TableOfFigures
	Dim capt As CaptionLabel
	'Открываем и активизируем документ DocThree
	DocPath = Documents("DocOne").Path
	Documents.Open (DocPath & "\Docthree")
	Documents("Docthree").Activate
	
	With ActiveDocument
		
		Set myr = Selection.Range
		myr.Select
		'Создаем таблицы ссылок на графики и таблицы
		'Оба заголовка должны быть элементами коллекции CaptionLabels
		.TablesOfFigures.Add Range:=myr, Caption:="График"
		.TablesOfFigures.Add Range:=myr, Caption:="Table"
		
		For Each ToF In .TablesOfFigures
			Debug.Print ToF.Caption
		Next ToF
		For Each capt In Application.CaptionLabels
			Debug.Print capt.Name
		Next capt
	End With
End Sub