[Oleg]

Вот код:

Код:

var
  c, n: integer;
  WordApp, NewDoc, WordTable: olevariant;
  iCols, iRows, iGridCols, jGridRows: integer;
begin
    c := 10;
    n := 2;
    try
      // Create a Word Instance
      WordApp := CreateOleObject('Word.Application');
    except
      ShowMessage('Error!');
      Exit;
    end;
    WordApp.Visible := True;
    NewDoc := WordApp.Documents.Add;
    iRows := n;
    iCols := c;
    // Add a Table
    WordTable := NewDoc.Tables.Add(WordApp.Selection.Range, iRows, iCols);
    WordTable.Range.Font.Size:=12;
    s:=10000;
    for jGridRows := 1 to iRows do
    for iGridCols := 1 to iCols do
    begin
    s:=s+1;
    str:=IntToStr(s)[1]+'.'+Copy(IntToStr(s),2,Length(IntToStr(s)));
    WordTable.Cell(jGridRows, iGridCols).Range.Text := str;
      end;
    WordApp   := Unassigned;
    NewDoc    := Unassigned;
    WordTable := Unassigned;
end;

Помогите пожалуйста как сделать таблицу, чтобы её значения получались ровно в квадратах, желательно 3x3 см
И находились точно в центре каждой строки да и ещё жирным.
Очень нужно и срочно !!!