[Ilnur]

Помогите пожалуйста. Функции
WordApplication1.Documents.Add(EmptyParams, EmptyParams, EmptyParams, EmptyParams);
WordApplication1.Documents.Open(Filenamе, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
Выводят ошибку:Project Ik.exe raised exception class EOLeException with message 'Несовпадение типов'
Подскажите пожалуйста из-за чего это происходит и как от этого избавиться?

[~ SaM ~]

implementation

var
W:variant;

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88

Function CreateWord:boolean; begin CreateWord:=true; try W:=CreateOleObject('Word.Application'); except CreateWord:=false; end; End;     Function VisibleWord(visible:boolean):boolean; begin VisibleWord:=true; try W.visible:= visible; except VisibleWord:=false; end; End;     Function AddDoc:boolean;  Var Doc_:variant; begin AddDoc:=true; try Doc_:=W.Documents; Doc_.Add; except AddDoc:=false; end; End;     Function SaveDocAs(file_:string):boolean; begin SaveDocAs:=true; try W.ActiveDocument.SaveAs(file_); except SaveDocAs:=false; end; End;   Function CloseDoc:boolean; begin CloseDoc:=true; try W.ActiveDocument.Close; except CloseDoc:=false; end; End;     Function CloseWord:boolean; begin CloseWord:=true; try W.Quit; except CloseWord:=false; end; End;     Function OpenDoc(file_:string):boolean;  Var Doc_:variant; begin OpenDoc:=true; try Doc_:=W.Documents; Doc_.Open(file_); except OpenDoc:=false; end; End;   Function VisibleWord(visible:boolean):boolean; begin VisibleWord:=true; try W.visible:= visible; except VisibleWord:=false; end; End;

//Использование:

Код:

1 2 3 4 5 6 7 8 9 10

if CreateWord then begin VisibleWord(true); //Показываем Ворд If AddDoc then begin   //Создаем документ //OpenDoc('имя_документа'); //или открываем его ........................... Делаем что хотим ........................... SaveDocAs('c:\123'); //Сохраняем(если надо конечно) CloseDoc; //закрываем документ CloseWord;//и сам Ворд

[Ilnur]

Спасибо большое, теперь все работает)))