Заполнение шаблона - Delphi - Ответ 7905926

procedure TForm1.Button2Click(Sender: TObject);
   const
 Fn = '\docs\Рабочий паспорт.dot';//Путь к файлу шаблона относительно папки, в которой лежит исполняемый файл программы.
     BmName ='pasport1' ;
     BmName1='def';
     BmName2 ='history';
     BmName3='kgo' ;
     BmName4='numpasport' ;
     BmName5='pasport2' ;
     BmName6='status' ;
var
 wdApp,  wdDoc, wdBms, wdBm, wdRng, wdTbls, wdTbl, wdRow : Variant;
  i, j, Cnt : Integer;
  FileName: String;
begin
  //Имя закладки MS Word.
 
  if  BmName  = ''  then begin
    MessageBox(Handle, 'Имя закладки MS Word не задано. Действие отменено.'
      ,'Внимание!', MB_OK + MB_ICONEXCLAMATION + MB_APPLMODAL);
    Exit;
  end;
     if  BmName2  = ''  then begin
    MessageBox(Handle, 'Имя закладки MS Word не задано. Действие отменено.'
      ,'Внимание!', MB_OK + MB_ICONEXCLAMATION + MB_APPLMODAL);
    Exit;
  end;
  //Попытка запуска MS Word.
  try
    wdApp := CreateOleObject('Word.Application');
  except
    MessageBox(Handle, 'Не удалось запустить MS Word. Действие отменено.'
      ,'Внимание!', MB_OK + MB_ICONERROR + MB_APPLMODAL);
    Exit;
  end;
  //Путь к файлу шаблона.
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
 
 // wdApp.Visible := True; //Делаем видимым окно MS Word.
  wdDoc := wdApp.Documents.Add(Template:=FileName, NewTemplate:=False); //Создаём новый документ на основе заданного шаблона.
   wdBms := wdDoc.Bookmarks;
 
  //Проверяем, есть ли в документе закладка с заданным именем.
//if not wdBms.Exists(BmName) then begin
//  MessageBox(0, 'В документе нет закладки с именем "' + BmName + '". Действие отменено.'
 //   ,'Внимание!', MB_OK + MB_ICONEXCLAMATION + MB_APPLMODAL);
//  Exit;
//end;
//Ссылка на закладку.
  wdBm := wdBms.Item(BmName);
  //Ссылка на диапазон, связанный с закладкой.
  wdRng := wdBm.Range;
  //Удаление закладки.
  wdBm.Delete;
 
  //Ссылка на коллекцию таблиц.
  wdTbls := wdDoc.Tables;
  //Определеляем, какой таблице принадлежит диапазон закладки.
  wdTbl := Unassigned;
  for i := 1 to wdTbls.Count do
    if wdRng.InRange(wdTbls.Item(i).Range) then begin
      wdTbl := wdTbls.Item(i);
      Break;
    end;
  if VarIsClear(wdTbl) then begin
    MessageBox(0, 'Закладка с именем "' + BmName + '" не принадлежит таблице.'
      + ' Действие отменено.', 'Внимание!', MB_OK + MB_ICONEXCLAMATION + MB_APPLMODAL);
    Exit;
  end;
 
  //Ищем в таблице первую пустую строку.
  wdRow := Unassigned;
  for i := 1 to wdTbl.Rows.Count do begin
    //В конце текста ячейки всегда имеются два специальных символа, обозначающих
    //границу ячейки. Поэтому, если длина текста ячейки равна 2, то эта ячейка пустая.
    j := 1;
    Cnt := wdTbl.Rows.Item(i).Cells.Count;
    while
      (j <= Cnt)
      and (Length(wdTbl.Rows.Item(i).Cells.Item(j).Range.Text) = 2)
    do Inc(j);
    //Если j > Cnt, значит, все ячейки в строке пустые (т. е., мы нашли пустую строку).
    if j > Cnt then begin
      wdRow := wdTbl.Rows.Item(i);
      Break;
    end;
  end;
 
  //Если пустых строк нет, то добавляем в таблицу новую строку.
  if VarIsClear(wdRow) then wdRow := wdTbl.Rows.Add;
 
  //Проверка формата строки.
  if wdRow.Cells.Count < 4 then begin
    MessageBox(0, 'В целевой строке таблицы недостаточно ячеек. Действие отменено.',
      'Внимание!', MB_OK + MB_ICONEXCLAMATION + MB_APPLMODAL);
    Exit;
  end;
   ADOQuery1.first;
   while not ADOQuery1.Eof do begin
  //Записываем в строку данные из программы.
  wdRow.Cells.Item(1).Range.Text := ADOQuery1.FieldByName('idItem').AsInteger;
  wdRow.Cells.Item(2).Range.Text := Edit2.Text;
  wdRow.Cells.Item(3).Range.Text := Edit3.Text;
  wdRow.Cells.Item(4).Range.Text := Edit4.Text;
 
  //Теперь, в верхней левой ячейке таблицы вновь определяем закладку.
  wdBms.Add(BmName, wdTbl.Rows.Item(1).Cells.Item(1).Range);
   ADOQuery1.next ;
   if not ADOQuery1.Eof then wdRow := wdTbl.Rows.Add
       else
 
  wdApp.Visible := True;
  //Если требуется, сохраняем документ.
  //wdDoc.Save;
  //Если требуется, закрываем MS Word.
 end;
end;
  // wdDoc.close;
 // wdApp.Quit;
 // end;