Microsoft Word

← →
aKor (2008-11-29 00:39) [0]

Мастера выручайте. Месяц программа не выкидывала ошибку,
и вдруг ((
........................................................................... 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 и тд) на значения и база.

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

← →
Германн © (2008-11-29 00:52) [1]

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

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

← →
Nastya (2008-11-29 01:00) [2]

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

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

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

← →
aKor (2008-11-29 01:01) [3]

> Nastya (29.11.08 01:00) [2]

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

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

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

← →
aKor (2008-11-29 01:15) [5]

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

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

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

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

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

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

Microsoft Word Найти похожие ветки