Метод Tables.Add (Word)

Статья
04/07/2023

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

Синтаксис

expression. Add (Range, NumRows, NumColumns, DefaultTableBehavior, AutoFitBehavior)

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

Параметры

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

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

Table

Пример

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

Set myRange = ActiveDocument.Range(0, 0) 
ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=4

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

Set MyRange = ActiveDocument.Content 
MyRange.Collapse Direction:=wdCollapseEnd 
ActiveDocument.Tables.Add Range:=MyRange, NumRows:=6, _ 
 NumColumns:=10

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

Sub NewTable() 
 Dim docNew As Document 
 Dim tblNew As Table 
 Dim intX As Integer 
 Dim intY As Integer 
 
 Set docNew = Documents.Add 
 Set tblNew = docNew.Tables.Add(Selection.Range, 3, 5) 
 With tblNew 
 For intX = 1 To 3 
 For intY = 1 To 5 
 .Cell(intX, intY).Range.InsertAfter "Cell: R" & intX & ", C" & intY 
 Next intY 
 Next intX 
 .Columns.AutoFit 
 End With 
End Sub

См. также

Объект коллекции таблиц

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

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

Поделиться через