MS WORD. Формат текста и таблиц

[kaa1977]

Добавляю таблицу, но шрифт в ней, как в Normal.dot. Кроме того таблица без сетки.

Как сменить формат шрифта в новосозданном документе? (сам шрифт, размер, начертание)

И как менять формат границы таблицы (с сеткой, только с рамкой), то есть то, что в самом Word меняется с помощью Формат/Границы и заливка.


СПАСИБО!!

По теме, от Alar

при создании из Delphi документа MS Word задать нужные параметры страницы: ориентацию страницы (книжная / альбомная) и поля

P.S>Не помешало бы вставить код создания документа, так увеличился бы шанс ответа.

[kaa1977]

Вот код создания документа, никак не могу сделать таблицу с сеткой и залить отдельные ячейки и кроме того не получается менять шрифт и его размер...


procedure TForm1.Button3Click(Sender: TObject);
Var iRows, iCols, iGridRows, jGridCols : Integer;
WordApp, NewDoc, WordTable: OLEVariant;

begin

try
WordApp := CreateOleObject('Word.Application') ;
except
Exit;
end;

NewDoc := WordApp.Documents.Add;
NewDoc.PageSetup.Orientation := 1;
NewDoc.PageSetup.TopMargin := 56;
NewDoc.PageSetup.BottomMargin := 156;
NewDoc.PageSetup.LeftMargin := 28;
NewDoc.PageSetup.RightMargin := 28;

iCols := StringGrid1.ColCount;
iRows := StringGrid1.RowCount;

WordTable := NewDoc.Tables.Add(WordApp.Selection .Range, iRows, iCols,);

for iGridRows := 1 to iRows do
for jGridCols := 1 to iCols do
WordTable.Cell(iGridRows, jGridCols).Range.Text := StringGrid1.Cells[jGridCols - 1, iGridRows - 1];

WordApp.Visible := True;

WordApp := Unassigned;
NewDoc := Unassigned;
WordTable := Unassigned;
end;

[budulay24rus]

Для отображения сетки таблицы:
WordTable.Borders.Enable:=true;