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

Вниз

TWordApplication - save AS   Найти похожие ветки 

 
mufan   (2005-08-13 19:59) [0]

Здравствуйте!
Мне надо было вставить в 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();


 
kblc ©   (2005-08-13 20:02) [1]

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


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

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


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

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

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



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

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

Наверх




Память: 0.44 MB
Время: 0.043 c
3-1154956684
uchik
2006-08-07 17:18
2006.10.08
помогите перенести данные из одной базы в другую


15-1158217336
boalse
2006-09-14 11:02
2006.10.08
Ещё оптический обман


9-1136861113
незнаускас
2006-01-10 05:45
2006.10.08
Проблема


15-1158157573
oldman
2006-09-13 18:26
2006.10.08
Надо купить комп. Все новые камни уже 64.


2-1158843573
XTD
2006-09-21 16:59
2006.10.08
Узнать о завершении работы Windows?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский