Dim TableWord As Word.Table 'объявляем объектную переменную в разделе Generals
Set TableWord = DocWord.Tables.Add(DocWord.Range(), 12, 4) 'создаём таблицу 12 строк, 4 столбца
Таблица будет создана размером во всю ширину страницы. Теперь можно добавлять текст в ячейки таблицы используя метод Cell.
TableWord.Cell(1, 1).Range.Text = "Текст" 'печатаем текст в ячейке 1,1 (строка/столбец)
Управление высотой строк таблицы
TableWord.Rows.Height = 12 'делаем все строки высотой 12 pt
или в сантиметрах
TableWord.Rows(6).Height = CentimetersToPoints(2) 'высотой 2 см ТОЛЬКО для 6-й строки
TableWord.Columns.Width = CentimetersToPoints(6) 'ширина стольбцов - 6 см
TableWord.Columns(2).Width = CentimetersToPoints(3) 'ширина 2-го столбца - 3 см
Можно менять положение таблицы
TableWord.Rows.VerticalPosition = CentimetersToPoints(5) 'по вертикали на 5 см
TableWord.Rows.HorizontalPosition = CentimetersToPoints(1.5) 'по горизонтали на 1,5 см
Получить количество строк в таблице
TableWord.Cell(2, 2).Range.Text = "Строк - " & TableWord.Rows.Count 'коллекция Rows
Получить количество столбцов в таблице
TableWord.Cell(3, 2).Range.Text = "Столбцов - " & TableWord.Columns.Count 'коллекция Columns
Получить количество ячеек в таблице
TableWord.Cell(3, 2).Range.Text = "Ячеек - " & TableWord.Range.Cells.Count
Вписать текст в ячейку таблицы Tables(1)
DocWord.Tables(1).Cell(6, 2).Range.Text = "Привет" 'строка 6, столбец 2
