#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