| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Microsoft Word [D7, XP]

aKor ©   (2008-11-29 00:39:00) 

Мастера выручайте.  Месяц программа не выкидывала ошибку,
и вдруг ((

...........................................................................
procedure TFormDoc.SearchAndReplase(FindText, ReplaceText: OleVariant);
var
 Replace: OleVariant;
begin
 Replace := wdReplaceAll;

 WordDoc.Range.Find.Execute(FindText,EmptyParam,EmptyParam,EmptyParam,
 EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,ReplaceText,
 Replace,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
end;

..................................................................
var
 Shablon, Slit: OleVariant;

       begin
         WordApp := TWordApplication.Create(nil);
         WordDoc := TWordDocument.Create(nil);

         Shablon := Path+'/patterns/dogovor.doc';
         WordApp.Documents.Add(Shablon, EmptyParam,EmptyParam,EmptyParam);

         Slit := Path+'/tmp/Договор_'+Cfam+'_'+IntToStr(MainF.IDog)+'.doc';
         WordDoc.ConnectTo(WordApp.ActiveDocument);

       
         SearchAndReplase('$family', Cfam);
         ..........................................  
         SearchAndReplase('$n', Cname[1]);
         SearchAndReplase('$o', Cotch[1]);
         ..........................................

         WordDoc.PrintOut;  //или  WordDoc.SaveAs(Slit)
         WordDoc.Free;
         WordApp.Free;
       end;



Ошибка: "Заглушке переданы не правильные данные"

Программа вытягивала данные из БД, подставляла их во второй парамерт процедуры "SearchAndReplase". А в шаблоне текст, который нужно было заменить
менялся($family и тд) на значения и база.

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

---

KilkennyCat   (2008-11-29 12:26:00) [1]

Шаблон проверь.

А вообще, такую автоматизацию документов я делаю на EK Rtf.
Всего 600 рублей полная версия.
Неполная вполне достаточна.
MS Office не требуется.
Проще в десятки раз.

---

Amoeba   (2008-11-29 02:36:00) [2]

> aKor   (29.11.08 01:15) [5]
>
>
> > Ну напишите в чем может хоть проблема?
>
> Вот уже ничего не соображаю, спать хочу

Вот и отправляйся спать. Утро вечера мудренее.

---

aKor   (2008-11-29 01:15:00) [3]

> Ну напишите в чем может хоть проблема?

Вот уже ничего не соображаю, спать хочу

---

aKor   (2008-11-29 01:13:00) [4]

Ну напишите в чем может хоть проблема? Завтра начальник шею намылит,
а скорее всего я буду редактировать целый день доки руками.

---

aKor   (2008-11-29 01:01:00) [5]

> Nastya   (29.11.08 01:00) [2]

Это мой старый ник

---

Nastya   (2008-11-29 01:00:00) [6]

> И какой же троешник такое сообщение генерит?

ну какой, этот class EOleException

только "неправильные" случайно ошибся ))

---

Германн   (2008-11-29 00:52:00) [7]

> Ошибка: "Заглушке переданы не правильные данные"

Классное сообщение об ошибке. Прям шедевр! И какой же троешник такое сообщение генерит?

---

Наверх