procedure TForm1.Button1Click(Sender: TObject);
var
WordApp : TWordApplication;
Doc : _Document;
Table : Word2000.Table;
begin
WordApp := TWordApplication.Create(Self);
WordApp.Connect;
FileName := 'F:/a.doc';
WordApp.Visible := True;
WordApp.Documents.Open(FileName,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
Doc := WordApp.ActiveDocument ;
Table := Doc.Tables.Item(1);
Table.Columns.Item(1).Shading.BackgroundPatternColor := wdColorBrightGreen;
Table.Cell(2,2).Shading.BackgroundPatternColor := wdColorBlue;
end;