экспорт из dbgrid в word

[Аринка]

Привет всем, кто остался неравнодушным!
У меня проблема
Я заполняю dbgrid и мне нужно чтобы данные из него экспортировались в шаблон wordа,в соответствующие закладки, первую строку первого столбца вставить получилось(она выделена жирным цветом) а как вторую строку первого столбца вставить не знаю!
Пожалуйста помогите!!!!!!!!!!!
Кусочек кода:
pWord.Documents.Add('',False,0);
pWord.Documents.Add(xFileName, False, 0);

pWord.ActiveDocument.Bookmarks.Item('Закладка1').Range.Text :=Form1.DBGrid5.Fields[1].AsString;

pWord.Selection.WholeStory;
pWord.Selection.Copy;
pWord.ActiveDocument.Close(SaveChanges:=wdDoNotSaveChanges);
pWord.Selection.EndKey(Unit:=wdStory);
pWord.Selection.Paste;

pWord.Visible:=True;

[zubr]

Смотри в сторону объекта Tables объектной модели Word. Что то типа:
pWord.ActiveDocument.Tables.Item(1).Cell(k, 1).Range.InsertBefore(Form1.DBGrid5.Fields[1].AsString);

[Аринка]

так получается мы опять указываем только fields(1 строка 1 столбца), а как же 2-ая строка первого столбца? 

[zubr]

Хмм.. а на фига данные таблицы вытягивать из DBGrid (это же не StringGrid). Данные надо вытягивать из БД, а не из компонента отображающего таблицу БД. Что то типа такого:

Код:

 Table1.First;
  for i := 1 to Table1.RecordCount do
  begin
    for j := 0 to Table1.FieldCount - 1 do
    pWord.ActiveDocument.Tables.Item(1).Cell(j + 1, i).Range.InsertBefore(Table1.Fields[j].AsString);
    Table1.Next;
  end;

[Аринка]

Всем СПАСИБО! Разобралась!!!!!!!!!!!!!!!!!!!!!!!!!!!!