Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Corba";
Текущий архив: 2006.10.08;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "Corba";
Текущий архив: 2006.10.08;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.085 c
2-1158667789
KyRo
2006-09-19 16:09
2006.10.08
Залипание клавиш


15-1158359800
lookin
2006-09-16 02:36
2006.10.08
А почему никто не пожелал начать тотализатор ЛЧ?


4-1148562019
Elen
2006-05-25 17:00
2006.10.08
Это опять я со своим надоедливым вопросом перехвата функций API


2-1159095853
Серый
2006-09-24 15:04
2006.10.08
Функция Int(n)


6-1147672723
Pop3
2006-05-15 09:58
2006.10.08
Sender.Name:= Кузнецов не пашет





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский