Sub WorkWithDrawingTable()
	'В этой процедуре демонстрируется работа
	'с рисованной таблицей Менделеева
	Documents("ExampleOfTable").Activate
	Dim DrawTable As Table
	Set DrawTable = ActiveDocument.Tables(1)
	With DrawTable
		Debug.Print "Столбцов - ", .Columns.Count
		Debug.Print "Строк - ", .Rows.Count
		Debug.Print .Cell(5, 1).Range.Text
		'Усложняем конфигурацию
		.Cell(4, 5).Split 2, 3
	End With
End Sub