Dear visitor, welcome to MastersForum. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.
| 
					 | 
				
					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?