[Outlook Convert]

How can I create a macro that will apply shading to alternate rows in a
table? I work with some very long tables that span several pages in a
document. Rather than selecting alternate rows individually and applying
shading, it would be a great time-saver to create a macro that will apply
shading to alternate rows. Thanks in advanced.

[Jay Freedman]

Outlook Convert wrote:
How can I create a macro that will apply shading to alternate rows in
a table? I work with some very long tables that span several pages
in a document. Rather than selecting alternate rows individually and
applying shading, it would be a great time-saver to create a macro
that will apply shading to alternate rows. Thanks in advanced.

Try this (read http://www.gmayor.com/installing_macro.htm if needed):

Sub ShadeAlternateRows()
Dim oTbl As Table
Dim nRow As Long

If Selection.Information(wdWithInTable) Then
Set oTbl = Selection.Tables(1)
For nRow = 1 To oTbl.Rows.Count Step 2
oTbl.Rows(nRow).Shading.BackgroundPatternColor _
= wdColorGray10
Next
End If
End Sub

You can change the color (wdGray10 is 10% gray) to any other color
constant -- to see the list in the VBA editor, choose View Object Browser,
enter wdColor in the search box, and press Enter.

[Outlook Convert]

Jay -

Thanks for the instructions - it worked out great! It took me a few minutes
to figure out that I need to click on the "View Code" button in order to copy
and paste your code, but I finally figured it out. Is there a way to assign
this macro to an icon? Thanks again! You made my life a whole lot easier

"Jay Freedman" wrote:

Outlook Convert wrote:
How can I create a macro that will apply shading to alternate rows in
a table? I work with some very long tables that span several pages
in a document. Rather than selecting alternate rows individually and
applying shading, it would be a great time-saver to create a macro
that will apply shading to alternate rows. Thanks in advanced.

Try this (read http://www.gmayor.com/installing_macro.htm if needed):

Sub ShadeAlternateRows()
Dim oTbl As Table
Dim nRow As Long

If Selection.Information(wdWithInTable) Then
Set oTbl = Selection.Tables(1)
For nRow = 1 To oTbl.Rows.Count Step 2
oTbl.Rows(nRow).Shading.BackgroundPatternColor _
= wdColorGray10
Next
End If
End Sub

You can change the color (wdGray10 is 10% gray) to any other color
constant -- to see the list in the VBA editor, choose View Object Browser,
enter wdColor in the search box, and press Enter.

[Jay Freedman]

Yes, you can make a button. Read
http://www.word.mvps.org/FAQs/Custom...oToToolbar.htm for
instructions.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.


Outlook Convert wrote:
Jay -

Thanks for the instructions - it worked out great! It took me a few
minutes to figure out that I need to click on the "View Code" button
in order to copy and paste your code, but I finally figured it out.
Is there a way to assign this macro to an icon? Thanks again! You
made my life a whole lot easier

"Jay Freedman" wrote:

Outlook Convert wrote:
How can I create a macro that will apply shading to alternate rows
in a table? I work with some very long tables that span several
pages in a document. Rather than selecting alternate rows
individually and applying shading, it would be a great time-saver
to create a macro that will apply shading to alternate rows.
Thanks in advanced.

Try this (read http://www.gmayor.com/installing_macro.htm if needed):

Sub ShadeAlternateRows()
Dim oTbl As Table
Dim nRow As Long

If Selection.Information(wdWithInTable) Then
Set oTbl = Selection.Tables(1)
For nRow = 1 To oTbl.Rows.Count Step 2
oTbl.Rows(nRow).Shading.BackgroundPatternColor _
= wdColorGray10
Next
End If
End Sub

You can change the color (wdGray10 is 10% gray) to any other color
constant -- to see the list in the VBA editor, choose View Object
Browser, enter wdColor in the search box, and press Enter.