В этой процедуре демонстрируется работа
| 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 |
| Листинг 1.30. |
| Закрыть окно |
