Table color in MSWord

[archana.gupta]

Hi,

Please advice how I could change the color of the table in MS word from 4GL.

I have created the table, but by default it is appearing in Gray color, i would like to change it to black.

ASSIGN
activeDoc = chWordApplication:ActiveDocument
CurSelect = chWordApplication:SELECTION

tableRange = CurSelect:range.

activeDoc:Tables:ADD(tableRange BY-POINTER, icounter, 6).
CurSelect:Tables:Item(1):Columns:Item(1):WIDTH = 125.

Please advice.


Thanks a lot,
Archana

 

[gnome]

Try Adding this to the end of your code.

CurSelect:Tables(1):Shading:BackgroundPatterncolor = 0.