Создание таблиц в документе Word из кода VBA Excel. Метод Tables.Add, его синтаксис и параметры. Объекты Table, Column, Row, Cell. Границы таблиц и стили.
Работа с Word из кода VBA Excel
Часть 4. Создание таблиц в документе Word
[Часть 1] [Часть 2] [Часть 3] [Часть 4] [Часть 5]
Создание таблиц в документе Word
Таблицы в VBA Word принадлежат коллекции Tables, которая предусмотрена для объектов Document, Selection и Range. Новая таблица создается с помощью метода Tables.Add.
Синтаксис метода Tables.Add
1 |
Expression.Add (Range, Rows, Columns, DefaultTableBehavior, AutoFitBehavior) |
Expression – выражение, возвращающее коллекцию Tables.
Параметры метода Tables.Add
- Range – диапазон, в котором будет создана таблица (обязательный параметр).
- Rows – количество строк в создаваемой таблице (обязательный параметр).
- Columns – количество столбцов в создаваемой таблице (обязательный параметр).
- DefaultTableBehavior – включает и отключает автоподбор ширины ячеек в соответствии с их содержимым (необязательный параметр).
- AutoFitBehavior – определяет правила автоподбора размера таблицы в документе Word (необязательный параметр).
Создание таблицы в документе
Создание таблицы из 3 строк и 4 столбцов в документе myDocument без содержимого и присвоение ссылки на нее переменной myTable:
1 2 3 |
With myDocument Set myTable = .Tables.Add(.Range(Start:=0, End:=0), 3, 4) End With |
Создание таблицы из 5 строк и 4 столбцов в документе Word с содержимым:
1 2 3 4 |
With myDocument myInt = .Range.Characters.Count - 1 Set myTable = .Tables.Add(.Range(Start:=myInt, End:=myInt), 5, 4) End With |
Для указания точки вставки таблицы присваиваем числовой переменной количество символов в документе минус один. Вычитаем единицу, чтобы исключить из подсчета последний знак завершения абзаца (¶), так как точка вставки не может располагаться за ним.
Последний знак завершения абзаца всегда присутствует в документе Word, в том числе и в новом без содержимого, поэтому такой код подойдет и для пустого документа.
При создании, каждой новой таблице в документе присваивается индекс, по которому к ней можно обращаться:
1 |
myDocument.Tables(индекс) |
Нумерация индексов начинается с единицы.
Отображение границ таблицы
Новая таблица в документе Word из кода VBA Excel создается без границ. Отобразить их можно несколькими способами:
Вариант 1
Присвоение таблице стиля, отображающего все границы:
1 |
myTable.Style = "Сетка таблицы" |
Вариант 2
Отображение внешних и внутренних границ в таблице:
1 2 3 4 |
With myTable .Borders.OutsideLineStyle = wdLineStyleSingle .Borders.InsideLineStyle = wdLineStyleSingle End With |
Вариант 3
Отображение всех границ в таблице по отдельности:
1 2 3 4 5 6 7 8 |
With myTable .Borders(wdBorderHorizontal) = True .Borders(wdBorderVertical) = True .Borders(wdBorderTop) = True .Borders(wdBorderLeft) = True .Borders(wdBorderRight) = True .Borders(wdBorderBottom) = True End With |
Присвоение таблицам стилей
Вариант 1
1 |
myTable.Style = "Таблица простая 5" |
Чтобы узнать название нужного стиля, в списке стилей конструктора таблиц наведите на него указатель мыши. Название отобразится в подсказке. Кроме того, можно записать макрос с присвоением таблице стиля и взять название из него.
Вариант 2
1 |
myTable.AutoFormat wdTableFormatClassic1 |
Выбирайте нужную константу с помощью листа подсказок свойств и методов – Auto List Members.
Обращение к ячейкам таблицы
Обращение к ячейкам второй таблицы myTable2 в документе myDocument по индексам строк и столбцов:
1 2 |
myTable2.Cell(nRow, nColumn) myDocument.Tables(2).Cell(nRow, nColumn) |
- nRow – номер строки;
- nColumn – номер столбца.
Обращение к ячейкам таблицы myTable в документе Word с помощью свойства Cell объектов Row и Column и запись в них текста:
1 2 3 4 |
myTable.Rows(2).Cells(2).Range = _ "Содержимое ячейки во 2 строке 2 столбца" myTable.Columns(3).Cells(1).Range = _ "Содержимое ячейки в 1 строке 3 столбца" |
В таблице myTable должно быть как минимум 2 строки и 3 столбца.
Примеры создания таблиц Word
Пример 1
Создание таблицы в новом документе Word со сплошными наружными границами и пунктирными внутри:
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Sub Primer1() Dim myWord As New Word.Application, _ myDocument As Word.Document, myTable As Word.Table Set myDocument = myWord.Documents.Add myWord.Visible = True With myDocument Set myTable = .Tables.Add(.Range(0, 0), 5, 4) End With With myTable .Borders.OutsideLineStyle = wdLineStyleSingle .Borders.InsideLineStyle = wdLineStyleDot End With End Sub |
В выражении myDocument.Range(Start:=0, End:=0)
ключевые слова Start и End можно не указывать – myDocument.Range(0, 0)
.
Пример 2
Создание таблицы под ранее вставленным заголовком, заполнение ячеек таблицы и применение автосуммы:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 |
Sub Primer2() On Error GoTo Instr Dim myWord As New Word.Application, _ myDocument As Word.Document, _ myTable As Word.Table, myInt As Integer Set myDocument = myWord.Documents.Add myWord.Visible = True With myDocument 'Вставляем заголовок таблицы .Range.InsertAfter "Продажи фруктов в 2019 году" & vbCr myInt = .Range.Characters.Count - 1 'Присваиваем заголовку стиль .Range(0, myInt).Style = "Заголовок 1" 'Создаем таблицу Set myTable = .Tables.Add(.Range(myInt, myInt), 4, 4) End With With myTable 'Отображаем сетку таблицы .Borders.OutsideLineStyle = wdLineStyleSingle .Borders.InsideLineStyle = wdLineStyleSingle 'Форматируем первую и четвертую строки .Rows(1).Range.Bold = True .Rows(4).Range.Bold = True 'Заполняем первый столбец .Columns(1).Cells(1).Range = "Наименование" .Columns(1).Cells(2).Range = "1 квартал" .Columns(1).Cells(3).Range = "2 квартал" .Columns(1).Cells(4).Range = "Итого" 'Заполняем второй столбец .Columns(2).Cells(1).Range = "Бананы" .Columns(2).Cells(2).Range = "550" .Columns(2).Cells(3).Range = "490" .Columns(2).Cells(4).AutoSum 'Заполняем третий столбец .Columns(3).Cells(1).Range = "Лимоны" .Columns(3).Cells(2).Range = "280" .Columns(3).Cells(3).Range = "310" .Columns(3).Cells(4).AutoSum 'Заполняем четвертый столбец .Columns(4).Cells(1).Range = "Яблоки" .Columns(4).Cells(2).Range = "630" .Columns(4).Cells(3).Range = "620" .Columns(4).Cells(4).AutoSum End With 'Освобождаем переменные Set myDocument = Nothing Set myWord = Nothing 'Завершаем процедуру Exit Sub 'Обработка ошибок Instr: If Err.Description <> "" Then MsgBox "Произошла ошибка: " & Err.Description End If If Not myWord Is Nothing Then myWord.Quit Set myDocument = Nothing Set myWord = Nothing End If End Sub |
Метод AutoSum суммирует значения в ячейках одного столбца над ячейкой с суммой. При использовании его для сложения значений ячеек в одной строке, результат может быть непредсказуемым.
Чтобы просуммировать значения в строке слева от ячейки с суммой, используйте метод Formula объекта Cell:
1 |
myTable.Cell(2, 4).Formula ("=SUM(LEFT)") |
Другие значения метода Formula, применяемые для суммирования значений ячеек:
- “=SUM(ABOVE)” – сумма значений над ячейкой (аналог метода AutoSum);
- “=SUM(BELOW)” – сумма значений под ячейкой;
- “=SUM(RIGHT)” – сумма значений справа от ячейки.