с таблицами Dim DocPath As
|
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 |
| Листинг 1.29. |
| Закрыть окно |
