Вставить таблицу в word в vba

Обновлено: 07.07.2024

1.Коллекция Tables .

Таблица представляет собой упорядоченную структуру, предназначенную для хранения организованных в виде строк и столбцов наборов данных. Элемент таблицы, находящийся на пересечении строки и столбца, называется ячейкой.

Таблица Word имеет такую же структуру, как и электронная таблица Excel – элемент таблицы, находящийся на пересечении строки и столбца, называется ячейкой и идентифицируется по имени столбца и номеру строки.

В VBA для доступа к таблицам используется объект Tables , являющийся семейством объектов Table , каждый из которых связан с конкретной таблицей. Для получения ссылки на семейство Tables можно использовать свойство Tables объекта Document .

Общее число таблиц, имеющихся в документе, содержится в свойстве Count . Для получения доступа к конкретной таблице можно использовать метод Item , который является методом по умолчанию.

Set oblTable = objDocument.Tables.Item ( Key)

Параметр Key , является уникальным идентификатором каждой таблицы, хранящейся в объекте Tables .

Для создания новой таблицы используется метод Add объекта Tables . Этот метод возвращает ссылку на созданную таблицу( Table ).

objTables.Add (Range, NumRows , NumColums )

Параметр Range позволяет указать область документа, куда будет вставлена таблица. Если параметр не пустой, т.е. имеется выделенная область, то она будет заменена вставляемой таблицей.

Параметры NumRows , NumColums позволяют указать на число строк и столбцов таблицы.

Пример: создадим таблицу в выделенном месте или там где стоит курсор.

2.Форматирование таблицы.

После создания таблицы ее можно отформатировать нужным образом: добавить заливку, изменить формат границ, изменить стиль и т.д.

В приложении Word входит ряд готовых профессиональных шаблонов для форматирования таблиц, которые позволяют значительно сэкономить время оформления таблицы.

Для их применения используется метод AutoFormat .

objTable.AutoFormat ( Format, [ ApplyBorders , ApplyShading , ApplyFont , ApplyColor , ApplyHeadingRows , ApplyLastRow , ApplyFirstColumn , ApplyLastColumn , AutoFit])

Параметр Format содержит один из допустимых форматов. Список всех имеющихся форматов и результат их применения можно увидеть в списке Стили таблицы окна диалога Автоформат таблицы (таблица ® автоформат ).

Параметр ApplyBorders указывает, должны ли использоваться границы, установленные по умолчанию для данного формата. Если True (значение по умолчанию), то текущие границы будут заменены границами, предусмотренными в применяемом автоформате .

Параметр ApplyShading указывает, должна ли использоваться заливка. Если True (значение по умолчанию), то для таблицы будет установлена заливка в соответствии со значением, предусмотренном в применяемом автоформате .

Параметр ApplyFont указывает, должен ли изменятся шрифт таблицы. Если True , то для текста в таблице будет применен шрифт, предусмотренный в применяемом автоформате .

Параметр ApplyColor указывает на необходимость использования цветового оформления цветового оформления таблицы. По умолчанию имеет значение True .

Параметр ApplyHeadingRows указывает на необходимость изменения формата заголовков столбцов (первой строки таблицы). По умолчанию имеет значение True.

Параметр ApplyLastRow указывает на необходимость изменения формата последней строки таблицы. По умолчанию имеет значение False , означающее, что особый формат к последней строке не применяется.

Параметр ApplyFirstColumn указывает на необходимость изменение формата первого столбца таблицы. По умолчанию имеет значение True .

Параметр ApplyLastColumn указывает на необходимость изменение формата последнего столбца таблицы. По умолчанию имеет значение False , означающее, что особый формат к последнему столбцу не применяется.

Параметр AutoFit указывает на автоматический подбор ширины столбцов в зависимости от размещаемых в них данных. По умолчанию имеет значение True .

Пример: применяем автоформат Классический 2 к таблице, расположенной первой от начала активного документа.

ActiveDocument.Tables ( 1).AutoFormat Format:=WdTableFormat.wdTableFormatClassic2

Тип используемого пользовательского форматирования содержится в свойстве AutoFormatType . Свойство возвращает одно из значений типа wdTableFormat .

Для форматирования границ таблицы используется свойство Borders , которое возвращает ссылку на объект типа В orders , связанный с границами данной таблицы.

Пример: назначение первой таблице в документе оформление границ.

With ActiveDocument.Tables ( 1).Borders

. OutsideLineStyle = wdLineStyleSingle внешние границы

. InsideLineStyle = wdLineStyleSingle внутренние границы

End With

3.Строки и столбцы.

Таблица состоит из набора строк и столбцов. Строки содержатся в семействе Rows , возвращаемое свойством Rows , а столбцы – в семействе Columns , возврщаемое свойством Columns .

Определенная строка или столбец связаны с объектами типа Row или Column . Доступ к конкретной строке или столбцу осуществляется с помощью метода Item , являющегося для объектов Rows и Columns методом по умолчанию.

Индексация столбцов и строк начинается с единицы. Индекс «единица» получает первая сверху строка и крайний левый столбец. Индекс последней строки и столбца можно получить с помощью свойства Count , которое возвращает количество членов в коллекции.

MsgBox ActiveDocument.Tables ( 1). Columns.Count

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

Для добавления в таблицу новых строк (столбцов) используется метод Add .

Параметр Before – указывает, перед какой строкой будет вставлена строка. Если параметр опущен, то строка добавляется в конец таблицы.

Set tabv = ActiveDocument.Tables( 1).Rows.Add(beforerow:=ActiveDocument.Tables(1).Rows(1))

Чтобы установить высоту строки, используется метод SetHeight .

objRow.SetHeight ( RowHeight , HeightRule )

параметр RowHeight указывает на новую высоту строки в пунктах.

Параметр HeightRule – указывает на способ изменения высоты:

WdRowHeightAtLeast – размер, указанный в параметре RowHeigh , является минимальным.

WdRowHeightAuto - размер, указанный в параметре RowHeigh ,является точным.

WdRowHeightExactly – автоматический подбор высоты строк (параметр RowHeigh игнорируется).

Получить информацию о текущей ширине строки и правиле ее изменения можно с помощью свойств Height и HeightRule .

objRow . Height [ =Height ]

Параметр Height (тип Single ) позволяет задать необходимую высоту строки в пунктах.

objRow . HeightRule [ =Rule ]

Параметр Rule указывает на правило изменения ширины ячейки:

• wdRowHeightAtLeast — минимальная ширина, которая может быть назначена строке, указывается в свойстве Height ;

• wdRowHeightExactly — ширина строки должна быть точно равна значению, указанному в свойстве Height ;

• wdRowHeightAuto — ширина строки подбирается автоматически в зависимости от размера используемого шрифта или размера вставок.

Чтобы установить одинаковую высоту всех строк, необходимо использовать метод DistributeHeight объекта Rows .

objRows . DistributeHeight

Для украшения текста документа часто используются прием создания отступа между левой границы ячейки и текстом. Этот прием часто применяют при создании таблиц на web-страницах. Для создания отступа в ячейках таблицы можно использовать свойство SpaceBetweenColumns . При использовании этого свойства в объекте Rows выполняется добавление отступа во все ячейки таблицы, а при использовании в Row — только для ячеек данной строки.

objRows.SpaceBetweenColumns [ = Space ]

Параметр Space (тип Single ) позволяет указать на ширину отступа в пунктах. Значение, передаваемое параметром Space , не может быть меньше 0 и больше ширины ячейки.

В приведенном ниже примере показан код, позволяющий создать в первой строке первой таблицы активного документа отступ, равный 36 пунктам.

With ActiveDocument.Tables ( l)

. Rows( l). SpaceBetweenColumns = InchesToPoints (0.5)

Чтобы установить ширину столбца и правило ее изменения применяется метод SetWidth . Этот метод используется как в объекте типа Columns , так и объекте типа Column . Если используется метод объекта Columns , то изменения ширины касаются всех столбцов, а если метод объекта Column — то только данного столбца.

о bjColumns.SetWidth ( ColumnWidth , RulerStyle )

Параметр ColumnWidth (тип Single ) указывает на новую ширину столбца в точках, а параметр RulerStyle (тип WdRulerStyle ) — на способ изменения ширины. Параметр RulerStyle может принимать следующие значения:

• wdAdjustNone (значение по умолчанию) — ширина столбца соответствует указанному значению. Изменение ширины столбца выполняется за счет смещения левой или правой границы таблицы (столбца).

• wdAdjustSameWidth — ширина столбца соответствует указанному значению. Изменение ширины выполняется за счет смещения внутренних границ таблицы. Правая граница сохраняет свое положение.

• wdAdjustFlrstColumn — ширина первого столбца соответствует указанному значению. Изменение ширины выполняется за счет смещения правой границы столбца. Размер остальных столбцов сохраняется. Если ширина превышает суммарную ширину первой и второй ячеек, то происходит сдвиг правой границы таблицы.

• wdAdjustProportional — ширина первого столбца соответствует указанному значению. Размер остальных столбцов подбирается автоматически, так чтобы общая ширина таблицы сохранилась.

• Для получения информации о текущей ширине столбца можно использовать свойство Width .

• О bjColumns.Width [ =Width ]

• Параметр Width (типа Single ) позволяет указать нужную ширину столбца.

• Чтобы установить одинаковую ширину всех столбцов, необходимо использовать метод DistributeWidth объекта Columns .

• Для автоматического подбора ширины столбцов используется метод AutoFit .

• Для удаления строк (столбцов) используется метод Delete .

• Доступ к ячейкам данной строки или столбца осуществляется с помощью объекта Cells , который является семейством объектов Cell , связанных с конкретными ячейками.

• Set objCells = objTables.Rows (key).Cells

• Set objCells = objTables.Columns (key).Cells

• Здесь objTables указывает на таблицу, с ячейками которой будет выполняться работа, а key – строка или столбец в таблице, ячейки которой входят в семейство Cells .

• Ссылку на определенную ячейку можно получить с помощью метода Cell объекта Table .

Set instable = ActiveDocument.Tables.Add ( Selection.Range , 4, 10)

Для добавления новой ячейки используется метод Add .

Параметр BeforeCell указывает на ячейку, перед которой должна быть вставлена новая ячейка. Если параметр опущен, то ячейка вставляется в конец столбца (строки). Метод возвращает ссылку на созданную ячейку.

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

Чтобы узнать положение текущей ячейки в строке или столбце, можно использовать свойство RowIndex или ColumnIndex . Оба свойства возвращают ссылку на объект типа Cell и предназначены только для чтения.

Для выделения (активизации) текущей ячейки используется метод Select .

Для объединения нескольких ячеек в одну (инструмент слияния) используется метод Merge .

Параметр MergeTo (типа Cell ) содержит объект типа Cell (ячейка), с которым выполняется слияние. Если указана ячейка, не имеющая общей границы с текущей, то выполняется слияние всех ячеек, находящихся в прямоугольнике, у которого данная ячейка и ячейка, указанная в параметре MergeTo , являются угловыми.

Для разбиения объединенных ячеек или одной ячейки на несколько используется метод Split .

ObjCell . Split [ ( NumRows , NumColumns )]

Параметр NumRows (типа long ) содержит значение, указывающее на число строк, на которые должна быть разбита данная ячейка. Параметр NumColumns (типа long ) содержит значение, указывающее на число столбцов, на которые должна быть разбита данная ячейка.

ActiveDocument.Tables ( 1).Cell(1, 1).Split 2, 3

5.Вычисления.

Вычисления в таблицах Word выполняются так же, как и в любых других электронных таблицах. Разница заключается только в возможностях использования функций. По умолчанию в Word определенно не очень много функций, однако, используя возможности VBA по подключению дополнительных библиотек, например библиотеки функций Excel , их число можно значительно увеличить.

Для указания ячейке, что в ней будет выполнятся вычисление, используется метод Formula объекта Cell .

ObjCell.Formula (Formula, NumFormat )

Параметр Formula содержит строковое выражение, описывающее используемое выражение. Параметр NumFormat определяет числовой формат данных, которые будут отображены в данной ячейке.

При использовании стандартных инструментов вставки формул эти выражения содержатся в соответствующих полях. Например, выражение “= SUM ( A 4: C 4)” позволяет отобразить значение, получаемое в результате выполнения суммирования значений трех ячеек: А4, В4, С4. Кроме непосредственной ссылки на конкретные ячейки можно использовать общие ссылки, например на все ячейки, расположенные выше( Above ) или левее ( Left ).

По умолчанию в таблицах Word можно использовать следующие функции:

• Abs ( X ) — возвращает абсолютное значение числа или формулы (без знака);

• And ( X ; Y ) - возвращает значение 1, если оба логических выражения, X и У, истинны, или 0 (ноль), если хотя бы одно из них ложно;

• Average ( List ) — возвращает среднее значение из списка значений List ,

• Count ( List ) — возвращает количество элементов в списке List ;

• Defined ( X ) - возвращает значение 1, если выражение X допустимо, или 0 (ноль), если выражение не может быть вычислено;

• Fal se — возвращает значение 0 (ноль);

• Int ( X ) — возвращает целую часть числа или значения формулы X ;

• Min ( List ) — возвращает наименьшее значение в списке List ;

• Max ( List ) — возвращает наибольшее значение в списке List ;

• Mod ( X ; Y ) — возвращает остаток от деления X на Y ;

• Not ( X ) — возвращает значение 0 (ложь), если логическое выражение X истинно, или 1 (истина), если оно ложно;

• Or ( X ; Y ) — возвращает значение 1 (истина), если хотя бы одно из двух логических выражений X и Y истинно, или 0 (ложь), если оба ложны;

• Product ( List ) — возвращает произведение значений, включенных в список List . Например функция «= Product (1,3,7,9)» возвращает значение 189;

• Round ( X ; У) — возвращает значение X , округленное до указанного десятичного разряда Y ;

• Sign ( X ) - указывает знак числа: возвращает значение 1, если X > О, или -1 в противном случае;

• Sum ( List ) — возвращает сумму значений или формул, включенных в список. List;

• True — возвращает значение 1.

• Параметр NumFormat , является маской, которая определяет формат числовых значений. Эта маска может содержать ряд специальных символов, которые приведены ниже.

• 0 (нуль) — возвращает цифру. Если полученное значение не содержит цифру в этой позиции, то возвращается 0 (нуль). Например, если имеется выражение типа Formula :="= 4 + 5", NumFormat := "00,00", то возвращаемое значение будет следующим: «09,00».

• х — если « х » находится слева от десятичного разделителя, цифры расположенные слева от него, отбрасываются, а если справа — то значение округляется до указанного знака. Например, Formula :="= 111053 + 111439", NumFormat := " x $$$" возвращает значение «492», а Formula :="= 1/8", NumFormat := "0,00 x " возвращает значение «0,125».

• минус) — добавляет минус к отрицательным или пробел — ко всем остальным значениям.

• + (плюс) — добавляет плюс к положительным, минус к отрицательным или пробел — к нулевым значениям.

• Для автоматического вычисления суммы значений можно использовать метод AutoSum .

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

Таблицы в 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:

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

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

Set myTable = . Tables . Add ( . Range ( Start : = myInt , End : = myInt ) , 5 , 4 )

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

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

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

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

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

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

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

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

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

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

Вариант 1

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

Вариант 2

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

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

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

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

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

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

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

myDocument As Word . Document , myTable As Word . Table

В выражении myDocument.Range(Start:=0, End:=0) ключевые слова Start и End можно не указывать – myDocument.Range(0, 0) .

Пример 2
Создание таблицы под ранее вставленным заголовком, заполнение ячеек таблицы и применение автосуммы:

. Range . InsertAfter "Продажи фруктов в 2019 году" & vbCr Set myTable = . Tables . Add ( . Range ( myInt , myInt ) , 4 , 4 )

Метод AutoSum суммирует значения в ячейках одного столбца над ячейкой с суммой. При использовании его для сложения значений ячеек в одной строке, результат может быть непредсказуемым.

Чтобы просуммировать значения в строке слева от ячейки с суммой, используйте метод Formula объекта Cell:

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

«=SUM(ABOVE)» – сумма значений над ячейкой (аналог метода AutoSum);
«=SUM(BELOW)» – сумма значений под ячейкой;
«=SUM(RIGHT)» – сумма значений справа от ячейки.

Содержание рубрики VBA Excel по тематическим разделам со ссылками на все статьи.

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

Здравствуйте, Юрий!
Попробуйте так:

Возвращает объект Table, который представляет новую пустую таблицу, добавленную в документ.

Синтаксис

выражения. Добавить (Диапазон, NumRows, NumColumns, DefaultTableBehavior, AutoFitBehavior)

выражение (обязательно). Переменная, представляюная коллекцию"Таблицы".

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Range	Обязательный	Объект Range	Диапазон, в котором нужно отображать таблицу. Таблица заменяет диапазон, если диапазон не свернут.
NumRows	Обязательный	Long	Количество строк, которые необходимо включить в таблицу.
NumColumns	Обязательный	Long	Количество столбцов, которые необходимо включить в таблицу.
DefaultTableBehavior	Необязательный	Variant	Задает значение, которое указывает, Microsoft Word автоматические размеры ячеек в таблицах, чтобы соответствовать содержимому ячеек (AutoFit). Может быть любой из следующих констант: wdWord8TableBehavior (отключен автофит) или wdWord9TableBehavior (включено AutoFit). Константа по умолчанию — wdWord8TableBehavior.
AutoFitBehavior	Необязательный	Variant	Задает правила AutoFit для таблиц размеров Word. Может быть одним из констант WdAutoFitBehavior.

Возвращаемое значение

Пример

В этом примере добавляется пустая таблица с тремя строками и четырьмя столбцами в начале активного документа.

В этом примере добавляется новая пустая таблица с шестью строками и десятью столбцами в конце активного документа

В этом примере в новый документ добавляется таблица с тремя строками и пятью столбцами, а затем вставляется информация в каждую ячейку таблицы.

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Вы можете попытаться записать макрос, чтобы сделать это, но макросы позволят вам только автоматизировать задачи внутри Word. В этой статье вы узнаете, как писать код VBA для автоматизации этих действий между Excel и Word.

Скопируйте и вставьте диапазон Excel в Word с VBA

В обоих примерах мы начнем с образца электронной таблицы Excel. Этот образец представляет собой список заказов на покупку различных продуктов.

Допустим, вы хотите скопировать и вставить весь диапазон ячеек на этом листе в документ Word. Для этого вам нужно написать функцию VBA, которая будет запускаться при нажатии кнопки «Копировать в слово».

Выбрать разработчик из меню и выберите Вставить из группы управления на ленте. В раскрывающемся списке выберите элемент управления «Кнопка» в разделе «Элементы управления ActiveX».

Затем нарисуйте командную кнопку на правой стороне листа. Вы можете изменить заголовок на «Копировать в Word», щелкнув правой кнопкой мыши по кнопке и выбрав свойства, Измените текст заголовка, и вы можете использовать шрифт для обновления размера и стиля шрифта.

Запись: Если вы не видите разработчик в меню Excel, затем добавьте его. Выбрать файл, Опции, Настроить лентуи выберите Все команды из выпадающего списка слева. Тогда двигайся разработчик от левой панели вправо и выберите OK, чтобы закончить.

Напишите копию и вставьте код VBA

Теперь вы готовы начать писать код VBA. Чтобы начать, дважды щелкните новый Копировать в Word кнопка, чтобы открыть окно редактора кода.

Вы должны увидеть подпрограмму с именем Commandbutton1_Click (), как показано ниже.

Вы хотите скопировать каждый раздел кода ниже. Прежде чем приступить к написанию кода, для управления Word на вашем компьютере с помощью VBA необходимо включить справочную библиотеку Microsoft Word.

В редакторе кода выберите инструменты из меню и выберите Ссылки, В списке доступных ссылок прокрутите вниз и включите Библиотека объектов Microsoft Word 16.0,

Выберите OK, и вы готовы начать кодирование. Мы рассмотрим каждый раздел кода за раз, чтобы вы поняли, что делает этот код и почему.

Во-первых, вам нужно создать переменные и объекты, которые будут содержать диапазон и позволять вам управлять приложением Word.

Dim tblRange As Excel.Range
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim WordTable As Word.Table

Следующая строка кода выбирает определенный диапазон ячеек и сохраняет его в объекте диапазона Excel в VBA.

Set tblRange = ThisWorkbook.Worksheets("Sheet1").Range("A2:G44")

Затем вы хотите проверить, открыто ли приложение Word на компьютере. Для этого вы можете ссылаться на приложение Word, используя специальную ссылку «класс» с командой VBA GetObject. Если Word еще не открыт, то следующая строка запустит его с помощью функции CreateObject. Строка «On Error Resume Next» предотвращает любую ошибку первой функции GetObject (если Word еще не открыт) останавливать выполнение следующей строки в программе.

On Error Resume Next
Set WordApp = GetObject(class:="Word.Application")
If WordApp Is Nothing Then Set WordApp = CreateObject(class:="Word.Application")

Теперь, когда приложение Word запущено, вы хотите сделать его видимым для пользователя и активировать его для использования.

Далее вы хотите создать новый документ в приложении Word.

Set WordDoc = WordApp.Documents.Add

Наконец, вы скопируете и вставите диапазон ячеек в новую таблицу в документе Word.

tblRange.Copy
WordDoc.Paragraphs(1).Range.PasteExcelTable _
LinkedToExcel:=False, _
WordFormatting:=False, _
RTF:=False

Переключатели в вышеупомянутой функции вставят несвязанную таблицу, используя исходное форматирование Excel (не форматирование Word) и не используя расширенный текстовый формат.

Наконец, для работы с диапазонами Excel, которые шире, чем документ, вам нужно автоматически установить новую таблицу, чтобы она соответствовала полям вашего нового документа Word.

Set WordTable = WordDoc.Tables(1)
WordTable.AutoFitBehavior (wdAutoFitWindow)

И теперь вы сделали! Сохраните файл как файл Excel с поддержкой макросов (расширение .xlsm). Закройте редактор, снова сохраните исходный файл Excel, а затем нажмите командную кнопку, чтобы увидеть код в действии!

Записать результаты Excel в таблицу Word с помощью VBA

В следующем разделе вы напишете код VBA, который выполняет вычисления значений в Excel и записывает их в таблицу в Word.

Для этого примера мы возьмем данные на 10 строк, вычислим и запишем результаты в таблицу в документе Word. Кроме того, исходная таблица будет содержать четыре столбца, а код VBA извлечет первые десять строк данных из этого диапазона.

Как и в последнем разделе, мы рассмотрим каждый раздел за раз, чтобы вы понимали, что делает этот код и почему.

Сначала создайте переменные и объекты, которые будут содержать данные и позволят вам писать в приложение Word.

Dim tblRange As Excel.Range
Dim WrdRange As Word.Range
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim WordTable As Word.Table
Dim intRows
Dim intColumns
Dim strDate As String
Dim strItem As String
Dim intUnits As Variant
Dim intCost As Variant
Dim intTotal As Variant

Затем установите общее количество столбцов и строк, которые вы хотите прочитать из диапазона Excel.

intNoOfRows = 10
intNoOfColumns = 5

Повторите тот же код, что и в последнем разделе, который откроет Word, если он еще не открыт.

On Error Resume Next
Set WordApp = GetObject(class:="Word.Application")
If WordApp Is Nothing Then Set WordApp = CreateObject(class:="Word.Application")
WordApp.Visible = True
WordApp.Activate
Set WordDoc = WordApp.Documents.Add

Следующие четыре строки создают таблицу внутри вновь открытого документа Word.

Set WrdRange = WordDoc.Range(0, 0)
WordDoc.Tables.Add WrdRange, intNoOfRows, intNoOfColumns
Set WordTable = WordDoc.Tables(1)
WordTable.Borders.Enable = True

Наконец, следующий цикл выполнит эти действия:

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

Вот как выглядит этот код:

For i = 1 To intNoOfRows
For j = 1 To intNoOfColumns
If j = 1 Then
strDate = tblRange.Cells(i + 1, j).Value
strItem = tblRange.Cells(i + 1, j + 1).Value
intUnits = Val(tblRange.Cells(i + 1, j + 2).Value)
intCost = Val(tblRange.Cells(i + 1, j + 3).Value)
intTotal = intUnits * intCost
End If
Select Case j
Case Is = 1
WordTable.Cell(i, j).Range.Text = strDate
Case Is = 2
WordTable.Cell(i, j).Range.Text = strItem
Case Is = 3
WordTable.Cell(i, j).Range.Text = intUnits
Case Is = 4
WordTable.Cell(i, j).Range.Text = intCost
Case Is = 5
WordTable.Cell(i, j).Range.Text = intTotal
Case Else
End Select
Next
Next

Функция «Ячейки» в первой части извлекает значения ячеек из Excel. Ячейки (x, y) означают, что он извлекает значение ячейки в строке x и столбце y.
Функция «Ячейка» в последней части записывает данные в ячейки таблицы Word, используя те же назначения строк и столбцов.

После сохранения и запуска этого кода VBA вы увидите результаты в только что созданном документе Word.

Как видите, не так сложно создать полезную автоматизацию между Excel и Word. Это просто вопрос понимания того, как работают различные «объекты», которые могут создавать и контролировать приложения Excel и Word на вашем компьютере.

В этом уроке мы научимся записывать макросы в Word и редактировать их на VBA. В ходе обучения мы создадим макрос, который будет создавать таблицу с 4-мя колонками и 4-мя строками. Для каждой колонки будет установлена определённая ширина, а также будут заполнены заголовки этих колонок.

Таким образом, в одном уроке и изучим всё что касается макросов в Word и таблиц. А также затронем тему автозаполнения Word документа.

Ну что же, приступим.

Макросы в Word. Работа с таблицами

Чтобы записать макрос в Microsoft Word 2007, или более поздних версиях этого приложения, необходимо конечно же запустить приложение Word и создать новый документ. Затем перейти на вкладку Вид и в группе Макросы, выбрать Запись макроса. Если вы все сделали правильно, то перед вами появится окно Запись макроса.

Очень важно заранее продумать всю последовательность ваших действий и только потом записывать макрос. То есть вы должны разработать для себя некий алгоритм действий и всё это потом реализовать.

Алгоритм создания таблицы в Word (Запись макроса)

1. В поле имя введите МояПерваяТаблица и нажмите Ок. Рядом с указателем мыши появится изображение магнитофонной кассеты это свидетельствует о том, что запись макроса началась. Теперь всё что мы будем делать в Word будет записано и преобразовано в VBA код.

2. Перейдите на вкладку Вставка и в группе Таблица выберите Вставка таблицы. Создадим таблицу на 4 колонки и 4 строки.

3. Теперь давайте заполним заголовки колонок, созданной нами таблицы. Первая колонка будет иметь заголовок «№ п/п», вторая – «ФИО», Третья – «Класс», а четвёртая «Группа». Очень важно, вводя эти заголовки использовать клавишу Tab для перехода на следующую ячейку иначе макрос будет записан некорректно.

Правильная последовательность ввода заголовков:

установите курсор на первой ячейке
установите шрифт «полужирный»
установите выравнивание «По центру»
введите текст «№ п/п»
нажмите клавишу Tab
установите шрифт «полужирный»
установите выравнивание «По центру»
введите текст «ФИО»
нажмите клавишу Tab
установите шрифт «полужирный»
установите выравнивание «По центру»
введите текст «Класс»
нажмите клавишу Tab
установите шрифт «полужирный»
установите выравнивание «По центру»
введите текст «Группа»
нажмите клавишу Tab
удерживая левую клавишу мыши потяните правую границу первой колонки влево, чтобы уменьшить её ширину

Всю эту последовательность я записал на видео. Поэтому не поленитесь и уделите 7 минут вашего времени, чтобы посмотреть этот видеоролик.

После того как мы сделали все вышеописанные манипуляции, необходимо вернуться на вкладку Вид – Макросы. И нажать «Остановить запись».

Вот и всё. Первый макрос записан. Теперь, каждый раз, когда нам нужно будет вставить таблицу с 4-мя колонками и 4-мя строками, достаточно будет перейти на вкладку Вид, выбрать группу Макросы, кликнуть Макросы, выбрать макрос «МояПерваяТаблица» и нажать Выполнить. Если вы всё сделали правильно, то там, где установлен курсив должна появиться таблица с заданными параметрами.

Читайте также: