Table cell fill colors

  • Thread starter Thread starter Top Spin
  • Start date Start date
T

Top Spin

I need to make up a bunch of weekly and monthly schedules. I created
some tables with 7 columns -- one for each day of the week. I want to
use colors to indicate what the days are used for, eg. activity1,
activity2, activity3, ...

I was able to get the tables to look OK using the shading/fill tool,
but I need to play with the colors a bit. Once I get the colors the
way I want them, I'd like to be able to change all of the tables at
once.

My first thought was to create a set of styles (Activity1, Activity2,
etc.) and assign a shading color to each one. I can't get that to
work. I can't find the attribute that will color in the entire cell.

Under Modify Style, the only option that seems to have a chance is
Format / Border.... Neither Format / Font nor Format / Paragraph have
any options that I could find that woulod work.

So, using Format / Border..., I tried setting the fill under the
shading tab. That put a colored vertical bar in each cell.

I next tried marking it as marking it as solid under the pattern
option. Same result.

Setting the font color doesn't work, either.

Can I set the cell fill in a style?

Thanks
 
Not unless you have Word 2002 and can define a table style.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://www.mvps.org/word
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
 
Top Spin,

You could do it with a somewhat bodaious macro of the form:

Dim t As Table, c As Cell, ro As Row
For Each t In ActiveDocument.Tables
For Each ro In t.Rows
For Each c In ro.Cells
With c.Shading
If .BackgroundPatternColor = wdColorTurquoise Then _
.BackgroundPatternColor = wdColorBrightGreen
If .BackgroundPatternColor = wdColorGold Then _
.BackgroundPatternColor = wdColorYellow
:
:
:


End With
Next
Next
Next
 
Top Spin,

You could do it with a somewhat bodacious macro of the form:

Dim t As Table, c As Cell, ro As Row
For Each t In ActiveDocument.Tables
For Each ro In t.Rows
For Each c In ro.Cells
With c.Shading
If .BackgroundPatternColor = wdColorTurquoise Then _
.BackgroundPatternColor = wdColorBrightGreen
If .BackgroundPatternColor = wdColorGold Then _
.BackgroundPatternColor = wdColorYellow
:
:
:
:
End With
Next
Next
Next
 
Back
Top