Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

имя создаваемого файла Word [D7, XP]

lewka-serdceed © (2008-04-20 20:10:00)
Привет!!! подскажите как мне правильно сделать так, чтобы когда я создаю документ Word вот таким способом:
w:=CreateOleObject('word.application'); w.visible:=true; w.Documents.add('C:\Приложение к свидетельству.doc');
то он создавался с именем, например, таким какой текст написан в Edit1.Text?

Andy BitOff (2008-04-21 01:01:00) [1]
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;

lewka-serdceed (2008-04-20 22:21:00) [2]
это я знаю так он сохраняет сразу в Мои Документы. А мне надо только имя присвоить

Andy BitOff (2008-04-20 21:56:00) [3]
Напиши;
i := 1;
DocFileName := 'Чтобы юзеру не тратить время. Попытка - ';
while FileExists(DocFileName + IntToStr(i) + '.doc') do inc(i);
SaveAs(DocFileName + IntToStr(i) + '.doc')

lewka-serdceed (2008-04-20 21:45:00) [4]
Да не я работать с программой то буду.

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

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

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

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

Andy BitOff (2008-04-20 21:22:00) [6]
А-а-а, ну тогда, я думаю, тебе не стОит тратить время на программирование.

lewka-serdceed (2008-04-20 21:15:00) [7]
Да можно самому имя прописать и сохранить, а я хочу чтобы ему уже было присвоено имя. Чтобы не тратить время на написание имени.

Andy BitOff (2008-04-20 21:11:00) [8]
Чего-то не догоняю.
Твой файл. Ты открываешь, заполняешь и сохраняешь под другим именем. В чем проблема? Что я упустил?

lewka-serdceed (2008-04-20 20:54:00) [9]
Этот шаблон создан мной, просто как обыкновенный документ, и в нем таблица и надписи, которые заполняются из Delphi. А файл создается с именем "Документ1.doc"

sniknik (2008-04-20 20:46:00) [10]
> надо понимать, создаст "нечистый" ?
наверное открывает документ, и соответственно "берет" его имя.

sniknik (2008-04-20 20:45:00) [11]
> а у меня шаблон.
нет у тебя документ, шаблон ворда, насколько знаю, имеет расширение dot. поищи как с ними работать, раз тебе нужно.

Сергей М, (2008-04-20 20:44:00) [12]
А так

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

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

lewka-serdceed (2008-04-20 20:24:00) [13]
дак так он создаст чистый, а у меня шаблон.

Сергей М, (2008-04-20 20:16:00) [14]
add(Edit1.Text)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »