Показать сообщение отдельно
  #2  
Старый 15.06.2014, 19:14
Anzhelika Anzhelika вне форума
Прохожий
 
Регистрация: 07.11.2012
Сообщения: 7
Репутация: 10
По умолчанию

решение найдено. добавить:
Код:
SaveDialog1.FileName:=NameResult;
   if SaveDialog1.Execute then
 begin
  NameResult := SaveDialog1.FileName;
    Macros := PChar(Command); // Преобразуем тип String в PChar
  DDE.OpenLink; // Открываем соединение с Word
  DDE.ExecuteMacro(Macros, false); // Отправляем команды на выполнение
 end;
тема закрыта.