TableStyle-Objekt (Word)
Stellt eine einzelne Formatvorlage dar, die einer Tabelle zugewiesen werden kann.
HinwBemerkungeneise
Verwenden Sie die Table-Eigenschaft des Styles-Objekts , um ein TableStyle-Objekt zurückzugeben. Verwenden Sie die Borders -Eigenschaft, um einer ganzen Tabelle Rahmen zuzuweisen. Mit der Condition -Methode können Sie Rahmen oder Schattierungen nur bestimmten Abschnitten einer Tabelle zuweisen. In diesem Beispiel wird eine neue Tabellenformatvorlage erstellt und die Tabelle mit einem Rahmen umgeben. Bestimmte Rahmen und Schattierungen werden der ersten und letzten Zeile sowie der letzten Spalte zugewiesen.
Sub NewTableStyle()
Dim styTable As Style
Set styTable = ActiveDocument.Styles.Add( _
Name:="TableStyle 1", Type:=wdStyleTypeTable)
With styTable.Table
'Apply borders around table
.Borders(wdBorderTop).LineStyle = wdLineStyleSingle
.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
.Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
.Borders(wdBorderRight).LineStyle = wdLineStyleSingle
'Apply a double border to the heading row
.Condition(wdFirstRow).Borders(wdBorderBottom) _
.LineStyle = wdLineStyleDouble
'Apply a double border to the last column
.Condition(wdLastColumn).Borders(wdBorderLeft) _
.LineStyle = wdLineStyleDouble
'Apply shading to last row
.Condition(wdLastRow).Shading _
.BackgroundPatternColor = wdColorGray125
End With
End Sub
Methoden
Name |
---|
Bedingung |
Eigenschaften
Name |
---|
Alignment |
AllowBreakAcrossPage |
AllowPageBreaks |
Anwendung |
Borders |
BottomPadding |
ColumnStripe |
Creator |
LeftIndent |
LeftPadding |
Parent |
RightPadding |
RowStripe |
Shading |
Spacing |
TableDirection |
TopPadding |
Siehe auch
Referenz zum Word-Objektmodell
Support und Feedback
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für