имя создаваемого файла 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]

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

Напиши;
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]

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

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;

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