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.

HinwBemerkungeneise

Verwenden Sie die Condition-Methode des TableStyle-Objekts , um ein ConditionalStyle-Objekt zurückzugeben. Die Schattierungseigenschaft kann verwendet werden, um Schattierung auf bestimmte Bereiche einer Tabelle anzuwenden. In diesem Beispiel wird die erste Tabelle im aktiven Dokument ausgewählt und eine Schattierung auf alternative Zeilen und Spalten angewendet. In diesem Beispiel wird davon ausgegangen, dass im aktiven Dokument eine Tabelle vorhanden ist und dass es 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

Verwenden Sie die Borders-Eigenschaft , um Rahmen auf bestimmte Bereiche einer Tabelle anzuwenden. In diesem Beispiel wird die erste Tabelle im aktiven Dokument ausgewählt und Rahmen auf die erste und letzte Zeile und erste Spalte angewendet. In diesem Beispiel wird davon ausgegangen, dass im aktiven Dokument eine Tabelle vorhanden ist und dass es 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.