Public Sub WorkWithTables()
'Работа	с таблицами
	Dim DocPath As String
	Dim myr As Range
	Dim ToF As TableOfFigures
	Dim MyTable As Table
	Dim i As Integer, j As Integer
	
	'Открываем и активизируем документ DocThree
	DocPath = Documents("DocOne").Path
	Documents.Open (DocPath & "\Docthree")
	Documents("Docthree").Activate
	
	With ActiveDocument
		'Создание оглавления - Table of Contents
		.TablesOfContents.Add .Range(Start:=0, End:=0)
		
		'Создание обычной таблицы myTable в конце документа
		Set MyTable = .Tables.Add(Range:=.Paragraphs.Last.Range, _
									NumRows:=2, NumColumns:=3)
		'Заполнение таблицы
		For i = 1 To MyTable.Rows.Count
			For j = 1 To MyTable.Columns.Count
				MyTable.Cell(i, j).Range.InsertAfter i + j
			Next j
		Next i
	End With
	'Вызов процедуры работы с таблицами ссылок
	WorkWithTablesOfFigures
End Sub