![]() |
Source code |
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 |
Quoted
Original von SRS_Speci
wer Word nutzt ist selber schuld *duck*
Quoted
Original von Tsu_Trude
wie wars mit Excel?