Style.Table-Eigenschaft (Word)
Gibt ein TableStyle-Objekt zurück, das Eigenschaften darstellt, die mithilfe einer Tabellenformatvorlage auf eine Tabelle angewendet werden können.
Ausdruck. Table
Ausdruck Ein Ausdruck, der ein Style-Objekt zurückgibt.
In diesem Beispiel wird eine neue Tabellenformatvorlage erstellt, die nur für die erste und letzte Zeile sowie für die letzte Spalte einen umgebenden Rahmen, besondere Rahmen und eine Schattierung festlegt.
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
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.