Прочитать на английском

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


Свойство Style.Table (Word)

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

Синтаксис

выражение. Table

Выражение Выражение, возвращающее объект Style.

Пример

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

Sub NewTableStyle() 
 Dim styTable As Style 
 
 Set styTable = ActiveDocument.Styles.Add( _ 
 Name:="TableStyle 1", Type:=wdStyleTypeTable) 
 
 With styTable.Table 
 
 'Apply borders around table, a double border to the heading row, 
 'a double border to the last column, and shading to last row 
 .Borders(wdBorderTop).LineStyle = wdLineStyleSingle 
 .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle 
 .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle 
 .Borders(wdBorderRight).LineStyle = wdLineStyleSingle 
 
 .Condition(wdFirstRow).Borders(wdBorderBottom) _ 
 .LineStyle = wdLineStyleDouble 
 
 .Condition(wdLastColumn).Borders(wdBorderLeft) _ 
 .LineStyle = wdLineStyleDouble 
 
 .Condition(wdLastRow).Shading _ 
 .BackgroundPatternColor = wdColorGray125 
 
 End With 
End Sub

См. также

Объект Style

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

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