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

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

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

1. Создание таблиц в документе Word
   • Синтаксис метода Tables.Add
   • Параметры метода Tables.Add
   • Создание таблицы в документе
   • Отображение границ таблицы
   • Присвоение таблицам стилей
   • Обращение к ячейкам таблицы
2. Примеры создания таблиц Word

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

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

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

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

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

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

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

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