Сохранить файл в ворде

← →
ford © (2009-07-30 11:55) [0]

Всем здравствуйте!!
подскажите плииз,
мне надо сделать копию открытого пользователем файла в формате RTF.
Я соеденяюсь с открытым вордом, создаю новый документ, копирую туда текст из первого и пытаюсь сохранить новый документ, вылетает ошибка "ошибка на сервере". Чего не так я сделал с этим SaveAs??

вот код
procedure TForm1.Button1Click(Sender: TObject); var W,W2: Variant; Fname,ftype,wfalse,Empty:Variant; begin W:=GetActiveOLEObject("Word.Application"); W2:=CreateOleObject("Word.Application"); W.Visible:=True; W2.Visible:=True; W.Selection.WholeStory; W.Selection.Copy; W2.Documents.Add; W2.Selection.Paste; fname:="c:\1111.rtf"; ftype:=$00000006; wfalse:=false; Empty:=""; W2.ActiveDocument.SaveAs(fname,ftype,wFalse, Empty,WFalse, Empty, WFalse, WFalse,WFalse, WFalse, WFalse); end;

← →
ford © (2009-07-30 12:11) [1]

от так надо было
W2.ActiveDocument.SaveAS(fName,6);

:)

собственно, да. Когда работаешь через variant, параметры можно опускать
либо EmptyParam

Сохранить файл в ворде Найти похожие ветки