用 MSWord2000.ActiveDocument.Tables.Add 畫表﹐如何把表的背影變成黑色的呢(50分)

MSWord2000.Selection.Font.Bold:= wdToggle;
MSWord2000.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter;





R:=MSWord2000.ActiveDocument.Content;
Direction := wdCollapseEnd ;
MSWord2000.ActiveDocument.Range(Start:=0, End:=MSWord2000.ActiveDocument.Range.end).InsertParagraphAfter;
MSWord2000.ActiveDocument.Range.InsertAfter(ColumnTitle);
R.Collapse(Direction);
RowCount:=0;
ColCount:=9;
R:=MSWord2000.ActiveDocument.Content;
Direction := wdCollapseEnd ;
R.Collapse(Direction);




// MSWord2000.Selection.TypeText(Text:=ColumnTitle);

MSWord2000.ActiveDocument.Tables.Add(R,
NumRows:=RowCount+1,
NumColumns:=ColCount,
DefaultTableBehavior:=0,
AutoFitBehavior:=0);
// MSWord2000.ActiveDocument.Tables[i+1].Rows[1].Shading.ForegroundPatternColorIndex:= wdBlack ;
MSWord2000.Selection.GoToNext(wdGoToTable);

MSWord2000.ActiveDocument.Tables.Item(i+1).Rows.Item(1).Shading.ForegroundPatternColorIndex := wdBlack;

不行呀

接受答案了.