Метод Table.AutoFormat (Word)

Применяет предопределенный вид к таблице.

Синтаксис

выражение. AutoFormat( _Format_ , _ApplyBorders_ , _ApplyShading_ , _ApplyFont_ , _ApplyColor_ , _ApplyHeadingRows_ , _ApplyLastRow_ , _ApplyFirstColumn_ , _ApplyLastColumn_ , _AutoFit_ )

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Format	Необязательный	Variant	Применяемый формат. Этот параметр может быть константой WdTableFormat , константой WdTableFormatApply или объектом TableStyle .
ApplyBorders	Необязательный	Variant	Значение true , чтобы применить свойства границы указанного формата. Значение по умолчанию — True.
ApplyShading	Необязательный	Variant	Значение true , чтобы применить свойства затенения указанного формата. Значение по умолчанию — True.
ApplyFont	Необязательный	Variant	Значение true для применения свойств шрифта указанного формата. Значение по умолчанию — True.
ApplyColor	Необязательный	Variant	Значение true , чтобы применить свойства цвета указанного формата. Значение по умолчанию — True.
ApplyHeadingRows	Необязательный	Variant	Значение true для применения свойств строки заголовка указанного формата. Значение по умолчанию — True.
ApplyLastRow	Необязательный	Variant	Значение true , чтобы применить свойства последней строки указанного формата. Значение по умолчанию — False.
ApplyFirstColumn	Необязательный	Variant	Значение true для применения свойств первого столбца указанного формата. Значение по умолчанию — True.
ApplyLastColumn	Необязательный	Variant	Значение true , чтобы применить свойства последнего столбца указанного формата. Значение по умолчанию — False.
AutoFit	Необязательный	Variant	Значение true , чтобы максимально уменьшить ширину столбцов таблицы, не изменяя способ переноса текста в ячейки. Значение по умолчанию — True.

Замечания

Аргументы для этого метода соответствуют параметрам в диалоговом окне Автоформат таблицы .

Пример

В этом примере создается таблица 5x5 в новом документе и к ней применяются все свойства формата Цветной 2.

Set newDoc = Documents.Add 
Set myTable = newDoc.Tables.Add(Range:=Selection.Range, _ 
 NumRows:=5, NumColumns:=5) 
myTable.AutoFormat Format:=wdTableFormatColorful2

В этом примере все свойства классического формата 2 применяются к таблице, в которой в данный момент находится точка вставки. Если точки вставки нет в таблице, отобразится окно сообщения.

Selection.Collapse Direction:=wdCollapseStart 
If Selection.Information(wdWithInTable) = True Then 
 Selection.Tables(1).AutoFormat Format:=wdTableFormatClassic2 
Else 
 MsgBox "The insertion point is not in a table." 
End If

См. также

Объект Table

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

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