Основы офисного программирования и документы Word

с таблицами 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.
Закрыть окно
Содержание раздела