закладки + таблица в word

[undead92]

ну в коде так и реализовано что она находит закладку, находит пустую строку и штампует в нее. Дело в том что потом не добавляет строки ниже себя а тупо заменяет те, которые ниже а еже ли так

 wdTbl.Rows.Add(iGridRows, jGridCols);

то выскакивает ошибка про неверный параметр

[undead92]

перерыл весь интернет, нашел таки пример где все как надо, причем таблица из грида вставляется именно между шапкой и футером

Единственное, что такая небольшая операция там вылилась в такой огромный код, что я не знаю сколько я буду делать два десятка актов и счетов, есть ли какой вариант укоротить его?

[FaTaL]

Ну вот например на основе твоего счета, сделал добавление 10 строк в таблицу после второй строки:

var
  wd  : variant;
  i : integer;
begin
  wd := CreateOleObject('Word.Application');
  wd.documents.open (ExtractFilePath (ParamStr(0)) + 'schet.doc');
  try
    wd.ActiveDocument.Tables.Item(2).Rows.Item(2).Select;
    for i:=1 to 10 do
      wd.Selection.InsertRowsBelow;
    wd.visible := true;
  except
    wd.Quit;
  end;
end;

С Вордом вообще просто работать, стоит только всё что нужно проделать в ворде и при этом записать макрос. А на основе макроса уже написать код в Delphi.

[undead92]

Сообщение от FaTaL

Ну вот например на основе твоего счета, сделал добавление 10 строк в таблицу после второй строки:

var
  wd  : variant;
  i : integer;
begin
  wd := CreateOleObject('Word.Application');
  wd.documents.open (ExtractFilePath (ParamStr(0)) + 'schet.doc');
  try
    wd.ActiveDocument.Tables.Item(2).Rows.Item(2).Select;
    for i:=1 to 10 do
      wd.Selection.InsertRowsBelow;
    wd.visible := true;
  except
    wd.Quit;
  end;
end;

С Вордом вообще просто работать, стоит только всё что нужно проделать в ворде и при этом записать макрос. А на основе макроса уже написать код в Delphi.

спасибо, огонь, раньше просто с вордом не сталкивался никогда... останется только грид прикрутить, заместо 10 написать irows

[FaTaL]

Пожалуйста. Советую прочитать книгу "Василий Корняков - Программирование документов и приложений MS Office в Delphi".

[undead92]

не понравилась, там все примеры когда есть заранее известный текст и количество строк. Странно что примеров не было, ведь мой счет - самый образцовый)

вообщем отлично, и самое главное коротко)