| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сохранить файл в ворде
ford © (2009-07-30 11:55:00)Всем здравствуйте!!
подскажите плииз,
мне надо сделать копию открытого пользователем файла в формате 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;
clickmaker (2009-07-30 12:17:00) [1]собственно, да. Когда работаешь через variant, параметры можно опускать
либо EmptyParam
ford (2009-07-30 12:11:00) [2]от так надо было
W2.ActiveDocument.SaveAS(fName,6);
:)
| |
