экспорт данных в Word

[desytov]

Здравствуйте.
Помогите разобраться с ошибкой. Необходимо изменить текст в ячейке таблицы в документе Word.

uses
  ComObj

// заполнение бланка
procedure zapolnenie;
var
  FileName: Variant;
  Application: Variant;
begin

  FileName := ExtractFilePath(Application.ExeName)+'\shablon.doc';
  Application:= CreateOleObject('Word.Application');

  Form1.WordApplication1.Connect;
  Application.Documents.Open(FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,  EmptyParam, EmptyParam,  EmptyParam);
   Form1.WordDocument1.ConnectTo(Form1.WordApplication1.ActiveDocument);

Form1.WordDocument1.Tables.Item(1).Cell(1,1).Range.Text := '212121212';

  Form1.WordDocument1.SaveAs(ExtractFilePath(Application.ExeName)+'\1.doc');
Form1.WordDocument1.Close;

end;

При компеляции всё нормально, но когда вызываю эту процедуру постоянно вылетает ошибка
[IMG]C:\Users\Aksioma\Desktop\ошибка в проекте.jpg[/IMG]

[zvygin1964]

Мужик, извини. Шампанское... Да и вообще, я в Delphi полный ноль, но с Новым Годом ! Поздравляю.

[xxbesoxx]

Помогите разобраться с ошибкой.

С новым годом .! Держите

[ИнгаМ]

можно узнать, какой код необходимо прописать, что бы выводилась таблица уже отфильтрованная. Тоесть фильтрация по полю например "страны", я выбираю страну таблица отфильтровалась, нажимаю "отчет в ms word" и там отобразилась уже отфильтрованная таблица.

[Serge_Bliznykov]

Сообщение от ИнгаМ

Тоесть фильтрация по полю например "страны", я выбираю страну таблица отфильтровалась, нажимаю "отчет в ms word"

покажите свой код, как Вы фильтруете таблицу?

насколько я понимаю, код, предложенный xxbesoxx должен нормально работать с фильтрованными данными:

    i := 1; //Текущая строка в таблице MS Word.
    while not Query1.Eof do begin
      Inc(i);
      //Если требуется, добавляем новую строку в конец таблицы.
      if i > 2 then wdTable.Rows.Add;
      //Записываем данные в строку таблицы MS Word.
      for j := 0 to Query1.Fields.Count - 1 do
        wdTable.Cell(i, j + 1).Range.Text := Query1.Fields[j].AsString;
      Query1.Next;
    end;

если же этого не происходит(т.е. записи перебираются все, вне зависимости от фильтра!), то никто не мешает Вам написать костыль в виде проверки внутри цикла нужного условия. и выводить данные только те, которые подходят.