Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Сохранить документ word как копию

Автор: ahito1 6.12.2009, 20:35

Доброго времени суток Всем!
Облазил весь форум, но так и не нашел, мне нужно:
я открываю вордовский файл, что то изменяю, потом мне нужно сохранить его как копию под другим именем, а тот исходный оставить без изменений. Как это сделать?

Автор: Данкинг 6.12.2009, 20:48

А SaveAs - не то? Тогда используй исходный шаблон и копируй его.

Автор: ahito1 6.12.2009, 21:01

saveAs делал но там столько параметров, ставлю empty не идёт, как это правильно сделать?
в икселе все просто есть метод savecopyas(имя файла) и всё, а тут незнаю...

Автор: ahito1 7.12.2009, 19:15

Автор: Данкинг 7.12.2009, 20:18

ahito1, чем вариант с шаблоном не подходит?

Автор: ahito1 7.12.2009, 20:44

Данкинг, а как отрыть документ как шаблон?изменить его и сохранить как обычный, но не изменяя шаблон?

Автор: Данкинг 7.12.2009, 21:09

Я имею в виду, что у тебя в каталоге с программой лежит файл. При работе же пользователя этот файл копируется куда-либо (к примеру, в пользовательский каталог), и открывается уже оттуда. А исходный файл как был, так и остаётся.

Автор: ahito1 7.12.2009, 22:30

Данкинг, о, спасибо попробую!

Автор: Regulum 8.12.2009, 16:27

ahito1
Нужно не empty, а EmptyParam.

Пример:

Код


var
   FName: OleVariant;
   Visible: OleVariant;
...
   FName:= 'C:\MyFolder1\MyFile1.doc';
   Visible:= true;
   WordApplication1.Documents.Open(FName, EmptyParam, EmptyParam, EmptyParam,
                                   EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                                   EmptyParam, EmptyParam, EmptyParam, Visible,
                                   EmptyParam, EmptyParam, EmptyParam);
   FName:= 'C:\MyFolder2\MyFile2.doc';
   WordApplication1.ActiveDocument.SaveAs(FName, EmptyParam, EmptyParam, EmptyParam,
                                   EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                                   EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                                   EmptyParam, EmptyParam, EmptyParam, EmptyParam);

Автор: ahito1 11.12.2009, 14:46

Regulum, спасибо! но что делать с ошибкой "Сервер RPC недоступен " когда я заново генерирую этот док?

Автор: ahito1 11.12.2009, 15:12

разобрался, нужно было делать дисконнект!

Автор: Данкинг 11.12.2009, 15:36

Цитата(ahito1 @ 11.12.2009, 14:46

)

"Сервер RPC недоступен "

Видимо, ты сервер закрыл, а заново не создал.

Автор: ahito1 11.12.2009, 19:49

Данкинг, да, точно.