Hi Debbie,

Edit > Replace doesn't work for this.
You'd loop through all cells in all tables, and set the shading to 10% if
it is currently 20-35 percent.

If you want to apply 10% shading to all cells that currently have any
shading at all (other than "automatic" = none):

Dim myTable As Table
Dim myCell As Cell
For Each myTable In ActiveDocument.Tables
 For Each myCell In myTable.Range.Cells
   With myCell.Shading
     If .BackgroundPatternColor <> _
       wdColorAutomatic Then
       .BackgroundPatternColor = wdColorGray10
     End If
   End With
 Next myCell
Next myTable

I'm not sure if Word97 used RGB colors, or if it used textures. If the
latter, you would write something like
     If .Texture <> wdTextureNone Then
       .Texture = wdTexture10Percent
     End If
in the inner loop.

Regards,
Klaus

thank you very much it worked perfect

--
Message posted from http://www.ExcelForum.com

Klaus that visual basic code worked for my tables except for when the
shading is using a pattern style instead of a fill.  What would I add
to the code.

Debbie

---
Message posted from http://www.ExcelForum.com/

klaus that worked for both.  You are great.  thanks.  debbi

--
Message posted from http://www.ExcelForum.com

What is happening is on the new code you sent me that works if it has
pattern but it does not work on the fill.  The first one you gave m
worked on the fill.  It does not work for both.  Any ideas

--
Message posted from http://www.ExcelForum.com