![]() |
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Public Sub TabelleSchattieren() Dim tbl As Table Dim i As Integer Dim row As row Set tbl = ThisDocument.Tables(1) For i = 1 To tbl.Rows.Count If i Mod 2 = 1 Then tbl.Rows(i).Shading.BackgroundPatternColorIndex = wdGray50 End If Next i End Sub |
Zitat
Original von SRS_Speci
wer Word nutzt ist selber schuld *duck*
Zitat
Original von Tsu_Trude
wie wars mit Excel?