Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.tables
|
|||
|
|||
Adding Shaded Rows between Rows
Can't remember how to automatically shade every other row. Can you help?
|
#2
Posted to microsoft.public.word.tables
|
|||
|
|||
Adding Shaded Rows between Rows
There's no way to do this automatically (such that the alternation will be
preserved if you add single rows) except by applying a table style that includes alternate row shading. -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA "Jsec" wrote in message news Can't remember how to automatically shade every other row. Can you help? |
#3
Posted to microsoft.public.word.tables
|
|||
|
|||
Adding Shaded Rows between Rows
"Jsec" wrote: Can't remember how to automatically shade every other row.
Can you help? The following macro should help. If you need instructions on installing macros, see: http://www.gmayor.com/installing_macro.htm If you add new rows after running the macro, just run it again. Sub ShadeEveryOtherRow() Dim oTable As Table Dim oRow As Row Dim bClear As Boolean On Error GoTo ErrorHandler bClear = True Set oTable = Selection.Tables(1) For Each oRow In oTable.Rows If bClear Then oRow.Shading.BackgroundPatternColor = wdColorWhite Else oRow.Shading.BackgroundPatternColor = wdColorGray15 End If If bClear = True Then bClear = False Else bClear = True End If Next oRow Exit Sub ErrorHandler: If Err.Number = 5941 Then MsgBox "The cursor must be positioned in the table you want to shade." _ & vbCr & vbCr & "Position the cursor and run this macro again." End If End Sub |
#4
Posted to microsoft.public.word.tables
|
|||
|
|||
Adding Shaded Rows between Rows
The following is a slightly improved version of my earlier macro.
'**** '* Macro: ShadeEveryOtherRow shades every other row of a table. '* If you add new rows to the table, just re-run this macro. '* If you want the first row to be shaded, change "bClear = True" to False. '* There are a number of different shades of Grey possible, '* wdColorGray05 is very light, wdColorGray50 is very dark, '* by increments of five, there are shades between these two. '**** Sub ShadeEveryOtherRow() Dim oRow As Row Dim bClear As Boolean If Selection.Information(wdWithInTable) = False Then MsgBox "The cursor must be positioned in the table you want to shade." _ & vbCr & vbCr & "Position the cursor and run this macro again." Else bClear = True For Each oRow In Selection.Tables(1).Rows If bClear Then oRow.Shading.BackgroundPatternColor = wdColorWhite Else oRow.Shading.BackgroundPatternColor = wdColorGray10 End If bClear = Not bClear Next oRow End If End Sub |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
adding multiple rows | Tables | |||
Adding rows to a table | Tables | |||
Adding rows to a table | New Users | |||
Watermark in front of graphics and shaded rows | Microsoft Word Help | |||
Rows adding to Tables | Microsoft Word Help |