Перейти к содержимому

VBA Excel. Создание таблиц в документе Word

Создание таблиц в документе Word из кода VBA Excel. Метод Tables.Add, его синтаксис и параметры. Объекты Table, Column, Row, Cell. Границы таблиц и стили.

Работа с Word из кода VBA Excel
Часть 4. Создание таблиц в документе Word
[Часть 1] [Часть 2] [Часть 3] [Часть 4] [Часть 5]

  1. Создание таблиц в документе Word
  2. Примеры создания таблиц Word

Создание таблиц в документе Word

Таблицы в VBA Word принадлежат коллекции Tables, которая предусмотрена для объектов Document, Selection и Range. Новая таблица создается с помощью метода Tables.Add.

Синтаксис метода Tables.Add

Expression.Add (Range, Rows, Columns, DefaultTableBehavior, AutoFitBehavior)

Expression – выражение, возвращающее коллекцию Tables.

Параметры метода Tables.Add

  • Range – диапазон, в котором будет создана таблица (обязательный параметр).
  • Rows – количество строк в создаваемой таблице (обязательный параметр).
  • Columns – количество столбцов в создаваемой таблице (обязательный параметр).
  • DefaultTableBehavior – включает и отключает автоподбор ширины ячеек в соответствии с их содержимым (необязательный параметр).
  • AutoFitBehavior – определяет правила автоподбора размера таблицы в документе Word (необязательный параметр).

Создание таблицы в документе

Создание таблицы из 3 строк и 4 столбцов в документе myDocument без содержимого и присвоение ссылки на нее переменной myTable:

With myDocument
Set myTable = .Tables.Add(.Range(Start:=0, End:=0), 3, 4)
End With

Создание таблицы из 5 строк и 4 столбцов в документе Word с содержимым:

With myDocument
myInt = .Range.Characters.Count - 1
Set myTable = .Tables.Add(.Range(Start:=myInt, End:=myInt), 5, 4)
End With

Для указания точки вставки таблицы присваиваем числовой переменной количество символов в документе минус один. Вычитаем единицу, чтобы исключить из подсчета последний знак завершения абзаца (¶), так как точка вставки не может располагаться за ним.

Последний знак завершения абзаца всегда присутствует в документе Word, в том числе и в новом без содержимого, поэтому такой код подойдет и для пустого документа.

При создании, каждой новой таблице в документе присваивается индекс, по которому к ней можно обращаться:

myDocument.Tables(индекс)

Нумерация индексов начинается с единицы.

Отображение границ таблицы

Новая таблица в документе Word из кода VBA Excel создается без границ. Отобразить их можно несколькими способами:

Вариант 1
Присвоение таблице стиля, отображающего все границы:

myTable.Style = "Сетка таблицы"

Вариант 2
Отображение внешних и внутренних границ в таблице:

With myTable
.Borders.OutsideLineStyle = wdLineStyleSingle
.Borders.InsideLineStyle = wdLineStyleSingle
End With

Вариант 3
Отображение всех границ в таблице по отдельности:

With myTable
.Borders(wdBorderHorizontal) = True
.Borders(wdBorderVertical) = True
.Borders(wdBorderTop) = True
.Borders(wdBorderLeft) = True
.Borders(wdBorderRight) = True
.Borders(wdBorderBottom) = True
End With

Присвоение таблицам стилей

Вариант 1

myTable.Style = "Таблица простая 5"

Чтобы узнать название нужного стиля, в списке стилей конструктора таблиц наведите на него указатель мыши. Название отобразится в подсказке. Кроме того, можно записать макрос с присвоением таблице стиля и взять название из него.

Вариант 2

myTable.AutoFormat wdTableFormatClassic1

Выбирайте нужную константу с помощью листа подсказок свойств и методов – Auto List Members.

Обращение к ячейкам таблицы

Обращение к ячейкам второй таблицы myTable2 в документе myDocument по индексам строк и столбцов:

myTable2.Cell(nRow, nColumn)
myDocument.Tables(2).Cell(nRow, nColumn)
  • nRow – номер строки;
  • nColumn – номер столбца.

Обращение к ячейкам таблицы myTable в документе Word с помощью свойства Cell объектов Row и Column и запись в них текста:

myTable.Rows(2).Cells(2).Range = _
"Содержимое ячейки во 2 строке 2 столбца"
myTable.Columns(3).Cells(1).Range = _
"Содержимое ячейки в 1 строке 3 столбца"

В таблице myTable должно быть как минимум 2 строки и 3 столбца.

Примеры создания таблиц Word

Пример 1
Создание таблицы в новом документе Word со сплошными наружными границами и пунктирными внутри:

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
Создание таблицы под ранее вставленным заголовком, заполнение ячеек таблицы и применение автосуммы:

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:

myTable.Cell(2, 4).Formula ("=SUM(LEFT)")

Другие значения метода Formula, применяемые для суммирования значений ячеек:

  • "=SUM(ABOVE)" – сумма значений над ячейкой (аналог метода AutoSum);
  • "=SUM(BELOW)" – сумма значений под ячейкой;
  • "=SUM(RIGHT)" – сумма значений справа от ячейки.
Содержание рубрики VBA Excel по тематическим разделам со ссылками на все статьи.

Добавить комментарий

Ваш комментарий будет опубликован после прохождения обязательной модерации. Исходящие ссылки не допускаются. Время модерации составит от нескольких минут до нескольких часов в зависимости от времени суток и занятости модератора. При добавлении в комментарий кода VBA Excel, вставьте перед его началом тег [vb] и по окончании кода - [/vb].