Создание таблиц в документе 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)» – сумма значений справа от ячейки.
Спасибо автору сайта за подробное описание и примеры.
Вопрос по записи макроса в Word 2003.
Нужно реализовать отключение макросом автоподбора размеров таблицы по содержимому (Свойства таблицы — Таблицы — Параметры). При попытке записать макрос Свойства таблицы оказываются недоступными.
Подскажите код, который будет отключать автоподбор размеров таблицы по содержимому.
Спасибо.
Здравствуйте, Юрий!
Попробуйте так:
Евгений, спасибо огромное!
Конструкция работает — в таблице, вставленной макросом из Excel в Word ширина столбцов остаётся такой же как и в Excel.
Здравствуйте Евгений!
Может Вы подскажете в чем дело.
Нужно вставить несколько диапазонов ячеек из Excel в Word.
Эти диапазоны могут быть разной высоты (разное количество строк и разная высота строк)
Нужно, чтобы каждый диапазон располагался на отдельном листе Word.
Руками я делаю так: на листе Word рисую таблицу из одной ячейки и в неё вставляю нужную таблицу Excel.
Сделал макрос, который вставляет нужные диапазоны ячеек в документ из шаблона Word по
меткам {Табл1} {Табл2} {Табл3} и т.д.
Всё отлично работает, но страницы «съезжают» т.к. высота вставляемых диапазонов (количество и высота строк в них) меняется.
Если в шаблоне Word рисую таблицу из одной ячейки на весь лист, в которую ставлю метку, например, {Табл2},
то VBA вставляет таблицу ВЫШЕ ячейки на листе Word. Причем, метка {Табл2} остается внутри ячейки.
Помогите пожалуйста!
Здравствуйте, Андрей!
У меня нет решения. Тесты дают тот же результат: вставка таблицы происходит перед ячейкой без замещения закладки. При конкретном указании ячейки с закладкой:
закладка замещается значением первой ячейки вставляемой таблицы.
Спасибо за отклик!
Частично разобрался, работает такой код:
Но у меня несколько таблиц в Wordе, в которые нужно вставлять таблицы из Excel
Во вторую таблицу уже попасть не могу 🙁
Код
во вторую нарисованную таблицу в шаблоне не попадает.
Как обозначаются явно таблицы в Worde?
В таблицу можно попасть только по ее порядковому номеру или по закладке в ней. У вас, в приведенном коде, одной буквы не хватает:
Если это не опечатка, тогда из-за этого не работает.
заработало с Tables(3)
Хотя таблица по порядку в документе вторая.
И код
именно такой — cell(1,1) работает.
Когда разбирался, пробовал cell(1,10) VBA сказал, что нет такой ячейки