Delphi + MS Word

← →
Tigra (2005-11-24 12:23) [0]

Есть шаблон в Word"e

В шаблоне есть текстовые поля.
Требуется в них забить данные.

Получается их выделить и заменить просто текстом

WordApplication1.ActiveDocument.Fields.Item(2).Select; WordApplication1.Selection.TypeText("123");

Но хочется именно забить В НИХ значения.

Как?

← →
Tigra (2005-11-24 12:37) [1]

Справился
WordApplication1.ActiveDocument.Fields.Item(2).Result.Text:=...

← →
umbra © (2005-11-24 12:40) [2]

а Item(2).Code.Text := "123" не работает?

← →
Tigra (2005-11-24 12:52) [3]

попробывал. Получилось интересно, но не то, что нужно =)

← →
Tigra (2005-11-24 13:16) [4]

Еще с одной проблемой столкулся:

Word Закрыть не могу. Тоесть документов нету, а программу закрыть не знаю как.

вот код:

WordApplication1.Connect; vr:="c:\obmen\spr.doc"; WordApplication1.Documents.Open(vr,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyPar am,EmptyParam,EmptyParam,EmptyParam); WordApplication1.ActiveDocument.Fields.Item(2).Result.Text:="Типа тест"; WordApplication1.ActiveDocument.PrintOut(EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,Em ptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam); WordApplication1.Documents.Close(EmptyParam,EmptyParam,EmptyParam); WordApplication1.Disconnect;

по завершению имеем запущенный Word без открытых документов.

← →
umbra © (2005-11-24 14:10) [5]

сделай WordApplication1.Quit предпоследней строчкой

← →
Tigra (2005-11-24 14:23) [6]

ок. спс

← →
evvcom © (2005-11-24 14:40) [7]

все OleVariant-ы освободи.

← →
Tigra (2005-11-24 14:57) [8]

Зачем? При закрытии программы этого автоматически не произайдет?

← →
umbra © (2005-11-24 15:08) [9]

2 Tigra (24.11.05 14:57) [8]

нет. Будет утечка памяти.

> Зачем? При закрытии программы этого автоматически не произайдет?

Тогда и WordApplication1.Disconnect и Quit нафига делать? Пока ВСЕ оле-варианты, имеющие отношение к вызываемому оле-серверу, не освободишь, этот оле-сервер так и будет в памяти висеть.

← →
Tigra (2005-11-24 15:21) [11]

А при закрытии преложения все отвалится?

> А при закрытии преложения все отвалится?

Само не отвалится. Здесь 2 приложения и эти оле-переменные разделяются обоими приложениями, насколько я понимаю этот механизм. На низком уровне не разбирался, поэтому только догадываюсь и предполагаю, как это происходит. Потому прошу сильно не пинать, если немного не так.

попробуй - узнаешь

Delphi + MS Word Найти похожие ветки