ConditionalStyle-Objekt (Word)

Stellt spezielle Formatierungen dar, die bestimmten Bereichen einer Tabelle zugewiesen sind, wenn die ausgewählte Tabelle mit einer angegebenen Tabellenformatvorlage formatiert ist.

Hinweise

Verwenden Sie die Condition-Methode des TableStyle-Objekts , um ein ConditionalStyle-Objekt zurückzugeben. Mit der Eigenschaft Shading können Sie bestimmte Bereiche einer Tabelle schattieren. In diesem Beispiel wird die erste Tabelle im aktiven Dokument markiert, und alternative Zeilen und Spalten werden schattiert. In diesem Beispiel wird davon ausgegangen, dass im aktiven Dokument eine Tabelle vorhanden ist und dass sie mit dem Tabellenrasterformat formatiert ist.

Sub ApplyConditionalStyle() 
 With ActiveDocument 
 .Tables(1).Select 
 With .Styles("Table Grid").Table 
 .Condition(wdOddColumnBanding).Shading _ 
 .BackgroundPatternColor = wdColorGray10 
 .Condition(wdOddRowBanding).Shading _ 
 .BackgroundPatternColor = wdColorGray10 
 End With 
 End With 
End Sub

Mit der Borders-Eigenschaft können Sie Rahmen auf bestimmte Bereiche einer Tabelle anwenden. In diesem Beispiel wird die erste Tabelle im aktiven Dokument markiert, und die erste und letzte Zeile sowie die erste Spalte werden mit Rahmen versehen. In diesem Beispiel wird davon ausgegangen, dass im aktiven Dokument eine Tabelle vorhanden ist und dass sie mit dem Tabellenrasterformat formatiert ist.

Sub ApplyTableBorders() 
 With ActiveDocument 
 .Tables(1).Select 
 With .Styles("Table Grid").Table 
 .Condition(wdFirstRow).Borders(wdBorderBottom) _ 
 .LineStyle = wdLineStyleDouble 
 .Condition(wdFirstColumn).Borders(wdBorderRight) _ 
 .LineStyle = wdLineStyleDouble 
 .Condition(wdLastRow).Borders(wdBorderTop) _ 
 .LineStyle = wdLineStyleDouble 
 End With 
 End With 
End Sub

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.