Вниз
Скачать: CL | DM;

MS OFFICE2000 & DELPHI   Найти похожие ветки 

← →
Ulikoff ©   (2002-10-21 17:13) [0]

Уважаемые мастера!
Помогите с такой проблемой. Есть программа, написанная на D3, при помощи которой из БД данные выводятся в Word"97(заполняется шаблон).
При установке Word"2000 данные не выводся в Word, а программа сообщает, что Word на компьютере не найден.
Подскажите, что делать (поможет ли преход на др. версию Delphi или еще что-то)?
Проблема очень актуальна, особенно в свете всеобщего лицензирования. MS Office"97 лицензионный я уже не достану.

Огромное спасибо.


← →
DieHard ©   (2002-10-21 17:31) [1]

как в программе организуется коннект к Ворду?


← →
Ulikoff ©   (2002-10-21 18:57) [2]

Спасибо за отклик.
Коннект в Word происходит
MsWord := CreateOleObject("Word.Basic");


← →
Рыжик ©   (2002-10-22 11:12) [3]

Надо заменить в uses Word97 на Word2000. Правда в D3 кажется его нет. Поэтому делаем следующее:
1.Выбираем Project|Import Type Library.
2.Жмем кнопочку Add, находим Word9.olb (или чего-то в этом духе)
3.Жмём кнопочку Create Unit. Будет создан Word9_TLB.
4.Заменяем старый файл в uses на новый.
Вроде должно помочь.


← →
asmith   (2002-10-23 17:39) [4]

А можно так:
============
const
OleClassName = "word.application.8"; // для Office2000
// OleClassName = "word.application.9"; // для Office2002(XP)
var
bSucces : boolean;
...
try
bSucces := False;
try
oWordApplication := GetActiveOleObject(OleClassName);
bSucces := True;
except
end;
if not bSucces then
try
oWordApplication := CreateOleObject(OleClassName);
bSucces := True;
except
raise;
end;




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

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



Память: 0.45 MB
Время: 0.013 c
4-11559
Star
2002-09-22 22:57
2002.11.04
Как программно нажать и удерживать клавишу Ctrl ?


3-11092
Started
2002-10-12 20:58
2002.11.04
Транзакции ...


3-11048
Dr. Well
2002-10-14 14:38
2002.11.04
Error in expresion


4-11539
kex86
2002-09-22 03:43
2002.11.04
---|Ветка была без названия|---


14-11442
Ketmar
2002-10-14 21:04
2002.11.04
мда... на нужные вопросы так никто и не отвечает %-(




   Наверх