|
|
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?