Работа с колонтитулами в Делфи

[pashka_dos]

Суть задачи:

Есть документ *.дос, этот документ содержит нижний колонтитул (в нем таблица). Нужно программно добавить строки в ячейки этой таблици.

Вот процедура для добавление строк внутрь документа, а как добавить в колонтитулы не знаю. Подскажите пожалуйста.

procedure TForm1.Button1Click(Sender: TObject);
var filename: OLEVariant;
begin
  CopyFile(PChar(extractfilepath(Application.ExeName)+'doc\lr1.doc'),PChar(extractfilepath(Application.ExeName)+'temp.doc'),false);
  filename:=extractfilepath(Application.ExeName)+'temp.doc';
  AW.Connect;
  AW.Documents.Open(FileName, EmptyParam,  EmptyParam,  EmptyParam, EmptyParam, EmptyParam, EmptyParam,  EmptyParam, EmptyParam, EmptyParam,  EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  DW.ConnectTo(AW.ActiveDocument);
  AW.Options.CheckSpellingAsYouType := False;
  AW.Options.CheckGrammarAsYouType := False;
  for i:=1 to 5 do begin
    if ax13[i,1] <> 0 then DW.Tables.Item(1).Cell(i+2,1).Range.Text:=inttostr(i);
    if ax13[i,1] <> 0 then DW.Tables.Item(1).Cell(i+2,5).Range.Text:=floattostrf(ax13[i,3],fffixed,10,2);
    if ax13[i,1] <> 0 then DW.Tables.Item(1).Cell(i+2,7).Range.Text:=floattostrf(ax13[i,2],fffixed,10,2);
    if ax13[i,1] <> 0 then DW.Tables.Item(1).Cell(i+2,6).Range.Text:=floattostrf(ax13[i,1],fffixed,10,2);
  end;
  AW.Visible:=true;
  Dw.Disconnect;
  Aw.Disconnect;

end;

[pashka_dos]

Народ, ну напишите кто что знает, времени в обрез.

[pashka_dos]

Может кто знает как обратится к колонтитулу, так как я обращался к таблице в документе???

DW.Tables.Item(1).Cell(i+2,1).Range.Text:=inttostr(i);

[Xardas]

К колонтитулу можно обратиться так:

var
  h : OLEVariant
..........
h := WordApp.ActiveDocument.Sections.Item(n).Headers.Item(n).Range;
.....

К ячейке таблицы в колонтитулах можно обратиться так:
(h - переменная из кода выше)

h.Tables.Item(n).Cell(x,y).Range;

[pashka_dos]

Xardas, спасибо вам, дальше разберусь сам.