oWord.Selection.Shading.BackgroundPatternColor = -553582746
I fixed by finding the right number> >#define wdTextureNone 0 >#define wdColorAutomatic -16777216 > >LOCAL oWord AS Word.Application >oWord = CREATEOBJECT("Word.Application") >oWord.Documents.Add() >oWord.Visible = .t. >oWord.ActiveDocument.Tables.Add(oWord.Selection.Range,3,3) && Add 3x3 grid >WITH oWord.ActiveDocument.Tables(1) > .Style = "Table Grid" > .ApplyStyleHeadingRows = .t. > .ApplyStyleLastRow = .f. > .ApplyStyleFirstColumn = .t. > .ApplyStyleLastColumn = .f. > .ApplyStyleRowBands = .t. > .ApplyStyleColumnBands = .f. >ENDWITH > > >oWord.ActiveDocument.Tables(1).Cell(1,2).Select() && Select cell we want to change >oWord.Selection.Shading.Texture = wdTextureNone >oWord.Selection.Shading.ForegroundPatternColor = wdColorAutomatic >oWord.Selection.Shading.BackgroundPatternColor = -553582746 > >oWord.ActiveDocument.Tables(1).Cell(2,1).Select() >oWord.Selection.Shading.Texture = wdTextureNone >oWord.Selection.Shading.ForegroundPatternColor = wdColorAutomatic >oWord.Selection.Shading.BackgroundPatternColor = -553582746 > >oWord.ActiveDocument.Tables(1).Cell(2,3).Select() >oWord.Selection.Shading.Texture = wdTextureNone >oWord.Selection.Shading.ForegroundPatternColor = wdColorAutomatic >oWord.Selection.Shading.BackgroundPatternColor = -553582746 > >oWord.ActiveDocument.Tables(1).Cell(3,2).Select() >oWord.Selection.Shading.Texture = wdTextureNone >oWord.Selection.Shading.ForegroundPatternColor = wdColorAutomatic >oWord.Selection.Shading.BackgroundPatternColor = -553582746 >