asked on

Alternate grey shading for selected rows of a table

Dear Experts:

with x rows of a table selected I would like to activate a macro that ...

... alternately shades the selected rows grey. The grey shading should begin on the uppermost selected row.

I GOT a macro that does this alternate shading much more comfortable (see macro below <TblAltShadingGrey>), but as soon as the macro hits vertically merged cells, it throws an error message. Therefore I would like to be able to apply alternate grey shading (only) to selected rows.

I am also aware that a user-defined table style could do the above job (alternate grey shading) very easily. But there are a couple of Word 2000 documents where I have to perform these tasks.

Help is much appreciated. Thank you very much in advance.

Regards, Andreas

Sub TblAltShadingGrey()

   Dim oRow As row
   Dim rng As Word.range
   Dim tbl As Table
   Dim StartRow As Long
   Dim ShadedRow As Boolean
   
   
If Not Selection.Information(wdWithInTable) Then
    MsgBox "Please place the cursor into the table", vbOKOnly + vbCritical, "Alternate Grey Shading for selected Table"
     Exit Sub
End If


   StartRow = InputBox("Grey Shading: Enter starting row:", "Alternate Grey Shading")
   
   Set tbl = Selection.Tables(1)
   Set rng = tbl.range

   For Each oRow In tbl.rows
      If oRow.Index >= StartRow Then
         ShadedRow = Not ShadedRow
         If ShadedRow Then
            oRow.Cells.Shading.BackgroundPatternColor = RGB(225, 225, 225)
         Else
            oRow.Cells.Shading.BackgroundPatternColor = wdColorAutomatic
         End If
      End If
   Next
   
 End Sub

Open in new window

Chris Bottomley

Hello AndreasHermle,

Try the following change ... it assumes you have selected the rows to be processed.

Regards,

chris_bottomley

Sub TblAltShadingGrey()

   Dim oRow As Row
   Dim rng As Word.Range
'   Dim tbl As Table
   Dim StartRow As Long
   Dim ShadedRow As Boolean
   
   
If Not Selection.Information(wdWithInTable) Then
    MsgBox "Please place the cursor into the table", vbOKOnly + vbCritical, "Alternate Grey Shading for selected Table"
     Exit Sub
End If



   'StartRow = InputBox("Grey Shading: Enter starting row:", "Alternate Grey Shading")
   
   'Set tbl = Selection.Tables(1)
   Set rng = Selection.Range

   For Each oRow In rng.Rows
      If oRow.Index >= StartRow Then
         ShadedRow = Not ShadedRow
         If ShadedRow Then
            oRow.Cells.Shading.BackgroundPatternColor = RGB(225, 225, 225)
         Else
            oRow.Cells.Shading.BackgroundPatternColor = wdColorAutomatic
         End If
      End If
   Next
   
 End Sub

Open in new window

Andreas Hermle

ASKER

Hi Chris,

thank you very much for your swift help.

I am afraid to tell you that the macro does not work on tables that contain vertically merged cells, even if the vertically merged cells are not part of the selection (selected rows). On "clean tables", i.e. tables without any vertically merged cells, the macro works fine.

The error (5991 = Cannot access individual rows in this collection because the table
has vertically merged cells) occurs on code line 22 (For each oRow in rng.rows)

Help is much appreciated. Thank you very much in advance. Regards, Andreas

Chris Bottomley

Apologies I latched onto the select and didn't realise the issue affected the table rathe than s.

I'll look further

Chris

ASKER CERTIFIED SOLUTION

Chris Bottomley

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

SOLUTION

Chris Bottomley

membership

This solution is only available to members.