Reply
 
Thread Tools Display Modes
  #1   Report Post  
Posted to microsoft.public.word.tables
Jsec Jsec is offline
external usenet poster
 
Posts: 1
Default Adding Shaded Rows between Rows

Can't remember how to automatically shade every other row. Can you help?
  #2   Report Post  
Posted to microsoft.public.word.tables
Suzanne S. Barnhill Suzanne S. Barnhill is offline
external usenet poster
 
Posts: 33,624
Default 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   Report Post  
Posted to microsoft.public.word.tables
StevenM[_2_] StevenM[_2_] is offline
external usenet poster
 
Posts: 169
Default 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   Report Post  
Posted to microsoft.public.word.tables
StevenM[_2_] StevenM[_2_] is offline
external usenet poster
 
Posts: 169
Default 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

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
adding multiple rows Trevor Wright Tables 2 May 10th 08 11:24 PM
Adding rows to a table Peter Guest Tables 2 November 25th 06 08:49 AM
Adding rows to a table Peter Guest New Users 3 November 22nd 06 09:01 PM
Watermark in front of graphics and shaded rows GDCross Microsoft Word Help 0 June 6th 06 08:50 PM
Rows adding to Tables Alex Mackenzie Microsoft Word Help 2 January 26th 06 06:41 PM


All times are GMT +1. The time now is 06:50 PM.

Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"