Delphi БД - Экспорт DBGrid в Word

[Nasle73]

Здравствуйте. Проблема заключается в следующем. Программа при нажатии на кнопку должна формировать отчет в вордовский документ из полей edit в определенные места в документе и так же должна формировать таблицу, так же в определенном месте документа. Формирование из полей edit реализовано. Но не как не могу сделать там же формирование таблицы. Причем при формировании должен открываться не новый документент, а имеющийся шаблон.

Код формирование отчета с записями из полей edit.

procedure TForm6.Button2Click(Sender: TObject);
var
word : variant;
procedure FindAndReplace (SearchStr, ReplaceStr : string);
begin
word.Selection.Find.Text := SearchStr;
word.Selection.Find.Replacement.Text := ReplaceStr;
word.Selection.Find.Execute (Replace := 2);
end;
begin
try
 Word:=CreateOleObject('Word.Application');
except
MessageBox (Handle, 'Не установлен Microsoft Office Word. Формирование ' +
'диакарты невозможно.', 'Ошибка',
MB_OK or MB_ICONERROR);
exit;
end;
word.documents.open ('C:\program\doc\prikaz.doc');      //путь к файлу
FindAndReplace ('%DATA%', Edit1.Text);      //Дата
FindAndReplace ('%NOMER%', Edit2.Text);     //номер
FindAndReplace ('%YSHGOD%', Edit3.Text);    //Учебный год
FindAndReplace ('%ZAV%', Edit4.Text);    //Заведующий отделением информационных техналогий
FindAndReplace ('%KURS%', Edit5.Text);  //курс
FindAndReplace ('%SPECIALNOST%', Edit6.Text);    //Специальности
FindAndReplace ('%PRACTS%', Edit7.Text);      //На практику с
FindAndReplace ('%PRACTPO%', Edit8.Text);   //по
word.Visible := true;
word := Unassigned;
end;

Из кода можно заметить, что у нас имеется документ prikaz.doc. Который открывается в ворде и в который добавляются записи из полей edit. Нужно ещё каким-то образом сформировать туда же таблицу из DBGrd.

Скрин формы http://itmages.ru/image/view/2534810/b1728fe1
Ссылка на программу из которой пытался достать экспорт таблицы https://yadi.sk/d/T5J2BuhAgWGK2

[Stilet]

Я уже предлагал на форуме решения:
http://www.programmersforum.ru/showthread.php?t=198926
http://www.programmersforum.ru/showthread.php?t=203376

[SQLPowerUser]

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  WordApp, NewDoc: Variant;
  j, f: integer;
  s: string;
begin
  // Работает очень быстро, тут даже буфер обмена НЕ требуется, но таблица будет из строки длиной максимум 32 Кб
  BitBtn2.Enabled := false;
  try
    f := ADODataSet1.FieldCount - 1;
    s := '';

    ADODataSet1.Recordset.MoveFirst; // Формируем длинную строку по принципу: разделитель между ячейками в одной строке - это табуляция (символ #9),
    while not ADODataSet1.Recordset.Eof do // а будущие строки разделяются символом #13
    begin
      for j := 0 to f do s := s + VarToStr(ADODataSet1.Recordset.Fields[j]) +#9;

      SetLength(s,length(s)-1); // убираем последний символ табуляции
      s := s + #13;
      ADODataSet1.Recordset.MoveNext;
    end;

    WordApp := CreateOleObject('Word.Application');
    NewDoc := WordApp.Documents.Add;
    WordApp.DisplayAlerts := 0;
    WordApp.Visible := False;

    WordApp.Selection.Font.Name := 'Arial';
    WordApp.Selection.Font.Size := 11;
    WordApp.Selection.ParagraphFormat.Alignment := 1; // Выравнивание по центру
    WordApp.Selection.TypeText('Результат выполнения SQL-запроса' + #10#10);

    WordApp.Selection.ParagraphFormat.Alignment := 0; // Выравнивание слева, если не сделать, то слова в таблице будут по центру, т.к. выше сделано WordApp.Selection.ParagraphFormat.Alignment := 1;

    WordApp.Selection.TypeText(s); // Вставим нашу строку. БЕЗ буфера обмена :)

    WordApp.Selection.GoTo(wdGoToLine, wdGoToFirst, 3, ''); // Перемещаемся на начало 3-й строки. Именно в 3-й строке вставился текст выше.
    WordApp.Selection.EndKey(6,1); // Выделяем текст от курсора до конца документа

    WordApp.Selection.ConvertToTable(EmptyParam); // Преобразуем выделенный текст в таблицу

    WordApp.Selection.Tables.Item(1).AutoFitBehavior(1); // Автоматическая ширина колонок по содержимому текста
    WordApp.Selection.Tables.Item(1).Borders.InsideLineStyle := 1; // Линии между ячейками.
    WordApp.Selection.Tables.Item(1).Borders.OutsideLineStyle := 1; // Линии между ячейками.

    WordApp.Selection.HomeKey(6); // Перемещаемся в начало документа для удобства пользователя
  finally
    BitBtn2.Enabled := true;
    WordApp.Visible := true;
    WordApp := Unassigned;
    NewDoc := Unassigned;
  end;
end; // BitBtn2Click