Написал программу передачи данных из таблицы (при нажатии на Button) в Word. Но возникла проблема с которой я незнаю как справиться. Суть проблемы. Когда я жму на Button то все окей. Открывается Word, данные передаються. Но если еще раз нажать на Button, то возникает ошибка.
Мне необходимо 2 варианта сделать:

1. Как мне програмно открывать следующую страницу Worda при этом чтобы первая не закрывалась
2. При повторном нажатии на Button чтобы первая страница закрывалась, а новая открывалась, естественно с новыми данными.

Имеющийся код прилагаю:


procedure TForm1.Button1Click(Sender: TObject);
var
wd: variant;
doc: variant;
find: variant;
begin
wd := CreateOLEObject('Word.Application');
//wd.Visible := true; // Сделать видимым Word до формирования отчета
doc := wd.Documents.Add(GetCurrentDir()+'\test.doc');
find := doc.Content.Find;
find.ClearFormatting;

find.Text := '{DATA}';
find.Forward := true;
find.Replacement.ClearFormatting; //в строке замены не использовать форматирование
find.Replacement.Text := DateToStr(Now);
find.Execute(EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,true,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,2,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM);

find := doc.Content.Find;
find.ClearFormatting;
find.Text := '{FIO}';
find.Forward := true;
find.Replacement.ClearFormatting; //в строке замены не использовать форматирование
find.Replacement.Text := Table1.FieldValues['NAME']; // на что заменять найденный текст
find.Execute(EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,true,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,2,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM);

find := doc.Content.Find;
find.ClearFormatting;
find.Text := '{OTHESTVO}';
find.Forward := true;
find.Replacement.ClearFormatting; //в строке замены не использовать форматирование
find.Replacement.Text := Table1.FieldValues['PARI']; // на что заменять найденный текст
find.Execute(EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,true,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,2,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM);

wd.Visible := true; // Сделать видимым Word после формирования отчета
end;

Тебе, навеное сюда.
http://forum.vingrad.ru/index.php?showforum=89

Насколько я понял ты каждый раз когда нажимаешь на батон создаешь объект ворда а этого делать тебе не нада если хочешь по страницам перемещаться.

Да это так, но тогда как по другому мне запустить ворд, и создать первую страницу, затем вторую. Хотелосьбы узнать как это можно сделать по другому?

User Тебе нужно делать так как ты делаешь только сделай проверку на то запущен ли ворд или нет? тогда будет более грамотно работать