Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.10.04;
Скачать: CL | DM;

Вниз

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

 
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);

:)


 
clickmaker ©   (2009-07-30 12:17) [2]

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



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

Текущий архив: 2009.10.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
15-1249459183
@!!ex
2009-08-05 11:59
2009.10.04
В чем смысл спама о выигрышах?


15-1249126462
DevilDevil
2009-08-01 15:34
2009.10.04
Приложение лезет в реестр


4-1218775071
Hero
2008-08-15 08:37
2009.10.04
TSHFileOpStruct - как сделать копирование видимым?


2-1248776313
Кирей
2009-07-28 14:18
2009.10.04
ошибка при повторном открытиии ADOStoredProc


15-1249386581
b/@.
2009-08-04 15:49
2009.10.04
Тяжело ли переходить от одиночной разработки к колективной...