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

Вниз

имя создаваемого файла Word   Найти похожие ветки 

 
lewka-serdceed   (2008-04-20 20:10) [0]

Привет!!! подскажите как мне правильно сделать так, чтобы когда я создаю документ Word вот таким способом:
w:=CreateOleObject("word.application");
w.visible:=true;
w.Documents.add("C:\Приложение к свидетельству.doc");

то он создавался с именем, например, таким какой текст написан в Edit1.Text?


 
Сергей М,   (2008-04-20 20:16) [1]

add(Edit1.Text)


 
lewka-serdceed   (2008-04-20 20:24) [2]

дак так он создаст чистый, а у меня шаблон.


 
Сергей М,   (2008-04-20 20:44) [3]

А так

> add("C:\Приложение к свидетельству.doc");


надо понимать, создаст "нечистый" ?


 
sniknik ©   (2008-04-20 20:45) [4]

> а у меня шаблон.
нет у тебя документ, шаблон ворда, насколько знаю, имеет расширение dot. поищи как с ними работать, раз тебе нужно.


 
sniknik ©   (2008-04-20 20:46) [5]

> надо понимать, создаст "нечистый" ?
наверное открывает документ, и соответственно "берет" его имя.


 
lewka-serdceed   (2008-04-20 20:54) [6]

Этот шаблон создан мной, просто как обыкновенный документ, и в нем таблица и надписи, которые заполняются из Delphi. А файл создается с именем "Документ1.doc"


 
Andy BitOff ©   (2008-04-20 21:11) [7]

Чего-то не догоняю.
Твой файл. Ты открываешь, заполняешь и сохраняешь под другим именем. В чем проблема? Что я упустил?


 
lewka-serdceed   (2008-04-20 21:15) [8]

Да можно самому имя прописать и сохранить, а я хочу чтобы ему уже было присвоено имя. Чтобы не тратить время на написание имени.


 
Andy BitOff ©   (2008-04-20 21:22) [9]

А-а-а, ну тогда, я думаю, тебе не стОит тратить время на программирование.


 
Сергей М,   (2008-04-20 21:23) [10]


> Чтобы не тратить время на написание имени


Не тратить кому ? Тебе или юзеру ?

SaveAs("Чтобы юзеру не тратить время.doc")


 
lewka-serdceed   (2008-04-20 21:45) [11]

Да не я работать с программой то буду.


 
Andy BitOff ©   (2008-04-20 21:56) [12]

Напиши;
i := 1;
DocFileName := "Чтобы юзеру не тратить время. Попытка - ";
while FileExists(DocFileName + IntToStr(i) + ".doc") do inc(i);
SaveAs(DocFileName + IntToStr(i) + ".doc")


 
lewka-serdceed   (2008-04-20 22:21) [13]

это я знаю так он сохраняет сразу в Мои Документы. А мне надо только имя присвоить


 
Andy BitOff ©   (2008-04-21 01:01) [14]

i := 1;
DocFileName := "Чтобы юзеру не тратить время. Попытка - ";
while FileExists(DocFileName + IntToStr(i) + ".doc") do inc(i);
DocFileName := "C:\" + DocFileName + IntToStr(i) + ".doc";
CopyFile("C:\Приложение к свидетельству.doc", PChar(DocFileName), False);
Open(DocFileName);
...
Save;



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

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

Наверх




Память: 0.47 MB
Время: 0.045 c
2-1208709944
yahoo
2008-04-20 20:45
2008.05.18
Написание программ в Delphi на WinApi


2-1208425578
VictoR407
2008-04-17 13:46
2008.05.18
Как удалить полосы прокрутки в компоненте treeview?


2-1208350865
papa_roarch
2008-04-16 17:01
2008.05.18
Правый или левый клик?


2-1207667537
kernel
2008-04-08 19:12
2008.05.18
Обработка сообщений (WM_SYSCOMMAND) в консольном приложении


2-1208434018
slashka
2008-04-17 16:06
2008.05.18
Многострочный TListView





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