Форум: "Начинающим";
Текущий архив: 2008.05.18;
Скачать: [xml.tar.bz2];
Вниз
имя создаваемого файла 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;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.038 c
