Скачать: CL | DM;

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]

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

---

← →
evvcom ©   (2005-11-24 15:20) [10]

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

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

---

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

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

---

← →
evvcom ©   (2005-11-24 16:13) [12]

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

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

---

← →
umbra ©   (2005-11-24 16:23) [13]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.024 c