из ehlib в word

[Stilet]

А точно число колонок в таблице совпадает с числом полей в наборе данных?
И надо посмотреть как начинается нумерация в Ворде, может с нуля...

[kate158]

я думаю, вся проблема кроется в области, куда я хочу впихнуть таблицу. если я открываю чистый лист ворда, таблица добавляется без проблем. если я хочу таблицу воткнуть в конец 2 листа шаблона, появляется ошибка (см. п. 10)
вся проблема в строке

MsWord.ActiveDocument.Tables.Add(MsWord.ActiveDocument.Range, NumRows:=dm.people_who_send.RecordCount, NumColumns:=dm.people_who_send.FieldCount);

а именно в MsWord.ActiveDocument.Range
каким образом добавить таблицу в конец шаблона?

как можно посмотреть где начинается нумерация в Ворде?

[Stilet]

Вот пожалуй это я не скажу... Надо читать про Ворд.
Попробуй почитать Корняков В.Н. «Программирование документов и приложений MS Office в Delphi»

[kate158]

я Корнякова наверное уже без книги по памяти расскажу
Виталик, кажется, получилось. спасибо, тебе, добрый человек!
вот, собственно

procedure TForm1.Button9Click(Sender: TObject);
var
  Myrange: Variant;
  i, j: integer;
begin
  if not dm.PEOPLE_WHO_SEND1.IsEmpty then// проверка на пустоту датасета, если не пустой, то
  begin
    try w:= CreateOleObject('Word.Application'); except exit; end;
    w.documents.open('C:\Temp\shablon.doc');//открываем шаблон
    w.visible:= false;// ворд не видим
    w.selection.find.text:= '<Кому>';//ищем метку в шаблоне ворда
    if w.selection.find.execute then w.selection.text:= dm.autor1dolgn_name.AsString;// вставляем текст из датасета
    w.selection.start:= 0;
    w.selection.end:= w.activedocument.characters.count;
    w.selection.find.text:= '<Подразделение>';
    if w.selection.find.execute then w.selection.text:= dm.sectionname.asstring;
    w.selection.start:= 0;
    w.selection.end:= w.activedocument.characters.count;
     myrange:= w.activedocument.range(w.activedocument.range.end - 1, w.activedocument.range.end -
      1);// здесь мы показываем что хотим добавить таблицу в конец шаблона,myrange- область для вставки таблицы
    w.ActiveDocument.Tables.Add(MyRange, NumRows:= dm.people_who_send1.RecordCount, NumColumns:=
      dm.people_who_send1.FieldCount); 
    w.ActiveDocument.Range.InsertAfter(' ');
    Table:= MyRange.Tables.Item(1);
    Table.Style:= 'Сетка таблицы';
    dm.people_who_send.First;//цикл по датасету
    for i:= 0 to dm.people_who_send.RecordCount - 1 do
    begin
      for j:= 0 to dm.people_who_send.FieldCount - 1 do
        Table.Cell(i + 1, j + 1).Range.InsertBefore(dm.people_who_send.Fields[j].AsString);
      dm.people_who_send.Next;
      w.activedocument.saveas('C:\Temp\shablon1.doc');
    end; 
w.Visible:= True; end
  else
  begin
    showmessage('Нет данных!');
    abort
  end
end;

[Stilet]

я Корнякова наверное уже без книги по памяти расскажу

Значит следующий шаг на луне - Хелп VBA Office. Там гораздо подробнее описано.

кажется, получилось.

Это хорошо )