Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TWordApplication - save AS [Delphi, Windows]


mufan ©   (2005-08-13 19:59:00) 

Здравствуйте!
Мне надо было вставить в Word’овский документ в нужные места некоторую информацию. Хорошие люди здесь посоветовали записать макрос в ворде, а потом по нему делаь все в программе. Все хорошо получается!
Вот краткий код:

var
Word: TWordApplication;
W:OleVariant;
…
Word.connect;
W:=’doc.doc’;
Word.Documents.Open(w,EmptyParam,…..,EmptyParam);
…
различные действия
…
word.documents.save(EmptyParam, EmptyParam);
word. disconnect;


Но при word.documents.save(EmptyParam, EmptyParam);все изменения сохраняются в шаблон.
Можно ли сделать так, чтобы результат работы над файлом doc.doc сохранялся в другой файл doc1.doc, а сам файл doc.doc оставался без изменений???
Если да, то напишите пожалуйста с помощью какой функции этого можно достичь…
Или какие параметры надо передавать word.documents.save();…


mic_2000   (2005-08-16 12:58:00) [1]

Попробуй открывать шаблон так

WordApp.Documents.Add(Template := 'c:\word.dot');


Kray   (2005-08-16 12:52:00) [2]

На мой взгляд, правильней открывать нужно. т.е. когда открываешь шаблон с созданием нового документа и когда открываешь шаблон для редактирования - разные вещи. Где разница не помню.


kblc   (2005-08-13 20:02:00) [3]

Word.ActiveDocument.SaveAs('FileName',$00000006); // AS *.RTF
и т.д. ... поищи остальное в инете ;)


Наверх

Титульная страница Поиск, карта сайта Написать письмо