[Anzhelika]

решение найдено. добавить:

Код:

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

тема закрыта.