Word - Delphi. Взятие данных из таблицы.

[Artsiom]

Доброго времени суток.
Может быть кто ни будь знает, как записать данные в массив из таблицы созданной в ворде?
Типа такой:

[Stilet]

В кратце:

Excell:=CreateOleObject('Excel.Application');
Book:=Excell.Workbooks.Open('Файлик');
Sheet:=Book.worksheets[1];
    for i := 1 to 8 do
     a[i]:=Sheet.cells[i,3];
...

[Аватар]

http://delphiru.ru/other/425-export-...to-tstringgrid

[Stilet]

Ой елы-палы!! Ворд.

MSWord:=CreateOleObject('Word.Application');
WordDoc:=MSWord.Documents.open('Файлик');
WordTable := WordDoc.Tables.Item(1);
   for i := 1 to 8 do
     a[i]:=WordTable.cell(i,3).range.Value;