[Suzie_B]

I am wanting to create a new standard color (140R, 143G, 76B) for cells in a
table. Is there anyway to do this so that I don't need to go into Custom each
time??

[Graham Mayor]

Create a character style (and/or paragraph style) that has the font colour
attributes you require and apply it to the text.
For table background shading, use the following macro to apply your colour
to the table the cursor is in.

Sub MyTableColor()
Selection.Tables(1).Shading.BackgroundPatternColor = 5017484
End Sub

or for individual cells

Sub MyCellColor()
Selection.Cells.Shading.BackgroundPatternColor = 5017484
End Sub

http://www.gmayor.com/installing_macro.htm

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Suzie_B wrote:
I am wanting to create a new standard color (140R, 143G, 76B) for
cells in a table. Is there anyway to do this so that I don't need to
go into Custom each time??

[Suzie_B[_2_]]

Thanks Graham. I appreciate it.

"Graham Mayor" wrote:

Create a character style (and/or paragraph style) that has the font colour
attributes you require and apply it to the text.
For table background shading, use the following macro to apply your colour
to the table the cursor is in.

Sub MyTableColor()
Selection.Tables(1).Shading.BackgroundPatternColor = 5017484
End Sub

or for individual cells

Sub MyCellColor()
Selection.Cells.Shading.BackgroundPatternColor = 5017484
End Sub

http://www.gmayor.com/installing_macro.htm

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Suzie_B wrote:
I am wanting to create a new standard color (140R, 143G, 76B) for
cells in a table. Is there anyway to do this so that I don't need to
go into Custom each time??

[Graham Mayor]

You are welcome

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org



Suzie_B wrote:
Thanks Graham. I appreciate it.

"Graham Mayor" wrote:

Create a character style (and/or paragraph style) that has the font
colour attributes you require and apply it to the text.
For table background shading, use the following macro to apply your
colour to the table the cursor is in.

Sub MyTableColor()
Selection.Tables(1).Shading.BackgroundPatternColor = 5017484
End Sub

or for individual cells

Sub MyCellColor()
Selection.Cells.Shading.BackgroundPatternColor = 5017484
End Sub

http://www.gmayor.com/installing_macro.htm

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Suzie_B wrote:
I am wanting to create a new standard color (140R, 143G, 76B) for
cells in a table. Is there anyway to do this so that I don't need to
go into Custom each time??