VPF::Проблема c подключением Word - Форум программистов

Гость_Ирина

Дата 7.12.2005, 20:48 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Мне необходимо отчет (данные запроса) вывести в Word.
Сначала просто пытаюсь создать процедуру вывода в Word одной строки текста:
(использую компоненты палитры Servers: WordApplication и WordDocument)

Код


procedure TForm18.Button2Click(Sender: TObject); 
var 
  N: OleVariant; 
  begin 
  N:= 'Mydoc.doc'; 
  WordApplication2.Documents.Open(N, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam); 
  WordDocument2.ConnectTo(WordApplication2.ActiveDocument); 
  WordApplication2.Selection.TypeText('Документ для печати - мой'); 
  WordDocument2.PrintOut; 
  N:= 'MyDoc_.doc'; 
  WordDocument2.SaveAs(N); 
  WordDocument2.Close; 
end;

Но при выполнении данной процедуры возникает ошибка: "НЕСОВПАДЕНИЕ ТИПОВ"

Также пыталась написать процедуру по другому: с использование уже открытого документа Word.

Возникает та же ошибка.

ПОМОГИТЕ, ПОЖАЛУЙСТА, ИЗ-ЗА ЧЕГО ВОЗНИКАЕТ ЭТА ОШИБКА?

Это сообщение отредактировал(а) Girder - 7.12.2005, 22:29

Albinos_x

Дата 7.12.2005, 21:47 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

попробуй так:

Код

...
procedure TForm18.Button2Click(Sender: TObject); 
var 
N,d,CreaDok: OleVariant; 
begin 
N:= 'c:\Mydoc.doc'; 
D:=wdCollapseEnd;
WordApplication1.ConnectKind := ckRunningInstance;
CreaDok:=WordApplication1.Documents.OpenOld(N,EmptyParam,EmptyParam,EmptyParam,
                                     EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                     EmptyParam,EmptyParam);
CreaDok.ConnectTo(WordApplication1.ActiveDocument); 
WordApplication1.Visible:= true;
WordApplication1.Selection.InsertAfter('Документ для печати - мой'); 
WordApplication1.Selection.Collapse(D);
WordDocument1.PrintOut; 
N:= 'C:\MyDoc_.doc'; 
WordApplication1.ActiveDocument.SaveAs(N, EmptyParam, EmptyParam, EmptyParam,
                                                      EmptyParam, EmptyParam, EmptyParam,
                                                      EmptyParam, EmptyParam, EmptyParam,
                                                      EmptyParam, EmptyParam, EmptyParam,
                                                      EmptyParam, EmptyParam, EmptyParam);
n:=false;
WordApplication1.ActiveDocument.Close(Con,EmptyParam,EmptyParam);
end;
...

PS: желательно указывать место ошибки...
PSS: здесь я писал как работать с вордом

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »