Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.013 c