Sub TabellenzeilenFarbeAlternierend
	' Färbt alle Tabellen, deren Name mit der Zeichenkette "alt" beginnt
	' 'Format > Tabelle > Reiterkarte: Tabelle > Feld: Name'
	' Beispiel: 'alt-Tabelle1'
	' Färbt alle ungeraden Zeilen nach der Vorlage "Tabellenzeile-ungerade" ein
	' Färbt alle ungeraden Zeilen nach der Vorlage "Tabellenzeile-gerade"
	' Um nur die ungeraden Zeilen zu färben, setze ein "Rem" oder "'" vor die beiden
	' Zeilen, die mit 'CellCursor' beginnen
	Dim Doc As Object
	Dim Table As Object
	Dim Cursor As Object
	Dim Rows As Object
	Dim RowIndex As Integer
	Dim Cols As Object
	Dim ColIndex As Integer
	Dim CellName As String
	Dim Cell As Object
	Dim TextTables As Object
	Doc = StarDesktop.CurrentComponent
	TextTables = Doc.getTextTables()
	For I = 0 to TextTables.count - 1
	Table = TextTables(I)
	If Left(Table.name,3) = "alt" then
	Rows = Table.getRows
	Cols = Table.getColumns
	For RowIndex = 1 To Rows.getCount()
	For ColIndex = 1 To Cols.getCount()
	If RowIndex Mod 2 Then
	CellName = Chr(64 + ColIndex) & RowIndex
	Cell = Table.getCellByName(CellName)
	CellCursor = Cell.createTextCursor()
	CellCursor.ParaStyleName = "Tabellenzeile-ungerade"
	Else
	CellName = Chr(64 + ColIndex) & RowIndex
	Cell = Table.getCellByName(CellName)
	CellCursor = Cell.createTextCursor()
	CellCursor.ParaStyleName = "Tabellenzeile-gerade"
	End If
	Next
	Next
	End If
	Next
End Sub