[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 см
И находились точно в центре каждой строки да и ещё жирным.
Очень нужно и срочно !!!

[Oleg]

Люди, помогите очень нужно прямо сейчас !

[Rokuell]

Я скажу, как это сделать в самом Word, а ты смотри по документации к нему (у меня нету, но обычно - файлы VBA*.hlp) как это кодить...
Нужно для всей таблицы установить следующие свойства ( в Word - Свойства таблицы...)
Вкладка строка:
Установить флажок "Высота", выбрать нужную величину и режим - "Точно"
Вкладка столбец:
Установить флажок "Ширина", выбрать нужную величину и еденицы - "Сантиметры"
Вкладка ячейка:
Установить флажок "Ширина", выбрать нужную величину и еденицы - "Сантиметры", вертикальное выравнивание поставить "по центру"

Потом уже в настройках шрифта - жирный и выравнивание текста "по центру".

[Oleg]

Потом уже в настройках шрифта - жирный и выравнивание текста "по центру".
-А как сделать чтобы по центру в квадрате(а не по центру в квадрате), т.е. в центре и по ширине и по длине ?

[Oleg]

Всё сделал, но когда распечатывает, то не видно таблицы, срочно помогите !!!!!!!!

[Oleg]

Всё работает(частично руками)

[Rokuell]

Вот полностью - пришлось лезть в VBA Word и там в Object Browse искать нужные методы и свойства, а значения констант искать в поиске кода Google.