Показать сообщение отдельно
  #10  
Старый 02.03.2017, 14:13
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Оффтоп: хорош пасибки так усердно тратить ) помощи от ентого меньше всёравно не станет

Вроде допетрил - спасибо за "кошечек" - пример в статье, параметры ведь у .SaveAs "заварены" как OleVariant, вот и нужно завести такую, имя положить в неё, а затем уж сохранять документ, у меня так заработало

З.Ы. В смысле
Код:
var
fname: OleVariant;
...
  fname :=   ExtractFilePath(Application.ExeName)+
'Технический_отчет_'+
FormatDateTime('ddmmyyyy_hhmm', Now)+'.doc';

WD1.SaveAs(fname);

З.Ы.З.Ы. Ничего не понимаю, у вас оказывается так и есть, Addr1: OleVariant...
Ответить с цитированием