Вставить таблицу в word в vba
Основные объекты, использующиеся в VBA Word для определения места вставки, добавления и форматирования текста – это Selection (выделение), Range (диапазон) и Bookmark (закладка).
Selection и Range позволяют заполнять текстом новые документы или редактировать существующие. Закладки можно использовать для вставки изменяемых реквизитов в шаблоны различных документов: договоры, акты, справки.
Объект Range имеет преимущество перед объектом Selection, так как он может быть создан только программно и не зависит от действий пользователя. Если для вставки и форматирования текста будет использоваться объект Selection, а пользователь во время работы программы просто поставит курсор в другое место документа, результат будет непредсказуем.
Word.Range кардинально отличается от объекта Range в Excel. В приложении Word он представляет из себя набор из одного или множества символов. А также он может вообще не содержать ни одного символа, а быть указателем ввода текста (виртуальным курсором).
Объект Range возвращается свойством Range других объектов приложения Word: Document, Selection, Bookmark, Paragraph, Cell (объект Table).
Вставка текста без форматирования
Если текст вставляется без форматирования, достаточно одной строки кода (myDocument – это переменная):
- Вставка текста с заменой имеющегося: myDocument.Range.Text = "Вставляемый текст"
- Добавление текста после имеющегося: myDocument.Range.InsertAfter "Добавляемый текст"
- Добавление текста перед имеющимся: myDocument.Range.InsertBefore "Добавляемый текст"
Методами InsertAfter и InsertBefore можно вставить текст и на пустую страницу, также, как с помощью свойства Text. Перейти на новый абзац и начать предложение с красной строки можно с помощью ключевых слов vbCr (vbNewLine, vbCrLf) и vbTab.
Вставка текста с форматированием
Для форматирования отдельных участков текста необходимо указать диапазон символов, входящих в этот участок. Здесь нам также поможет объект Range, которому можно задать любой набор символов, содержащихся в документе Word.
Returns a Table object that represents a new, blank table added to a document.
Syntax
expression.Add (Range, NumRows, NumColumns, DefaultTableBehavior, AutoFitBehavior)
expression Required. A variable that represents a 'Tables' collection.
Parameters
Name | Required/Optional | Data type | Description |
---|---|---|---|
Range | Required | Range object | The range where you want the table to appear. The table replaces the range, if the range isn't collapsed. |
NumRows | Required | Long | The number of rows you want to include in the table. |
NumColumns | Required | Long | The number of columns you want to include in the table. |
DefaultTableBehavior | Optional | Variant | Sets a value that specifies whether Microsoft Word automatically resizes cells in tables to fit the cells' contents (AutoFit). Can be either of the following constants: wdWord8TableBehavior (AutoFit disabled) or wdWord9TableBehavior (AutoFit enabled). The default constant is wdWord8TableBehavior. |
AutoFitBehavior | Optional | Variant | Sets the AutoFit rules for how Word sizes tables. Can be one of the WdAutoFitBehavior constants. |
Return value
Example
This example adds a blank table with three rows and four columns at the beginning of the active document.
This example adds a new, blank table with six rows and ten columns at the end of the active document
This example adds a table with three rows and five columns to a new document and then inserts data into each cell in the table.
See also
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
Возвращает объект Table , который представляет новую пустую таблицу, добавленную в документ.
Синтаксис
выражения. Добавление (Range, 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 и обратная связь.
Таблицы в VBA Word принадлежат коллекции Tables, которая предусмотрена для объектов Document, Selection и Range. Новая таблица создается с помощью метода Tables.Add.
Синтаксис метода Tables.Add
Expression – выражение, возвращающее коллекцию Tables.
Параметры метода Tables.Add
- Range – диапазон, в котором будет создана таблица (обязательный параметр).
- Rows – количество строк в создаваемой таблице (обязательный параметр).
- Columns – количество столбцов в создаваемой таблице (обязательный параметр).
- DefaultTableBehavior – включает и отключает автоподбор ширины ячеек в соответствии с их содержимым (необязательный параметр).
- AutoFitBehavior – определяет правила автоподбора размера таблицы в документе Word (необязательный параметр).
Создание таблицы в документе
Создание таблицы из 3 строк и 4 столбцов в документе myDocument без содержимого и присвоение ссылки на нее переменной myTable:
Создание таблицы из 5 строк и 4 столбцов в документе Word с содержимым:
Для указания точки вставки таблицы присваиваем числовой переменной количество символов в документе минус один. Вычитаем единицу, чтобы исключить из подсчета последний знак завершения абзаца (¶), так как точка вставки не может располагаться за ним.
Последний знак завершения абзаца всегда присутствует в документе 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.Range(Start:=0, End:=0) ключевые слова Start и End можно не указывать – myDocument.Range(0, 0) .
Пример 2
Создание таблицы под ранее вставленным заголовком, заполнение ячеек таблицы и применение автосуммы:
Метод AutoSum суммирует значения в ячейках одного столбца над ячейкой с суммой. При использовании его для сложения значений ячеек в одной строке, результат может быть непредсказуемым.
Чтобы просуммировать значения в строке слева от ячейки с суммой, используйте метод Formula объекта Cell:
Другие значения метода Formula, применяемые для суммирования значений ячеек:
- «=SUM(ABOVE)» – сумма значений над ячейкой (аналог метода AutoSum);
- «=SUM(BELOW)» – сумма значений под ячейкой;
- «=SUM(RIGHT)» – сумма значений справа от ячейки.
12 комментариев для “VBA Excel. Создание таблиц в документе Word”
Спасибо автору сайта за подробное описание и примеры.
Вопрос по записи макроса в Word 2003.
Нужно реализовать отключение макросом автоподбора размеров таблицы по содержимому (Свойства таблицы — Таблицы — Параметры). При попытке записать макрос Свойства таблицы оказываются недоступными.
Подскажите код, который будет отключать автоподбор размеров таблицы по содержимому.
Спасибо.
Здравствуйте, Юрий!
Попробуйте так:
Евгений, спасибо огромное!
Конструкция работает — в таблице, вставленной макросом из Excel в Word ширина столбцов остаётся такой же как и в Excel.
Здравствуйте Евгений!
Может Вы подскажете в чем дело.
Нужно вставить несколько диапазонов ячеек из Excel в Word.
Эти диапазоны могут быть разной высоты (разное количество строк и разная высота строк)
Нужно, чтобы каждый диапазон располагался на отдельном листе Word.
Руками я делаю так: на листе Word рисую таблицу из одной ячейки и в неё вставляю нужную таблицу Excel.
Сделал макрос, который вставляет нужные диапазоны ячеек в документ из шаблона Word по
меткам и т.д.
Всё отлично работает, но страницы «съезжают» т.к. высота вставляемых диапазонов (количество и высота строк в них) меняется.
Если в шаблоне Word рисую таблицу из одной ячейки на весь лист, в которую ставлю метку, например, ,
то VBA вставляет таблицу ВЫШЕ ячейки на листе Word. Причем, метка остается внутри ячейки.
VBA — это очень мощный инструмент, который можно использовать для автоматизации большой работы между несколькими приложениями Microsoft Office. Одним из распространенных действий, которые вы можете автоматизировать с помощью VBA, является вставка таблицы Excel в документ Word.
Visual Basic для приложений (VBA) — очень мощный инструмент, который можно использовать для автоматизации большой работы между несколькими приложениями Microsoft Office. Одним из распространенных действий, которые вы можете автоматизировать с помощью VBA, является вставка таблицы Excel в документ Word.
Есть два способа сделать это. Первый — это автоматическое копирование и вставка существующего диапазона из Excel в новую таблицу в документе Word. Второй — выполнение расчетов в Excel, создание новой таблицы в Word и запись результатов в таблицу.
Вы можете попытаться записать макрос, чтобы сделать это, но макросы позволят вам только автоматизировать задачи внутри 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 на вашем компьютере.
Читайте также: