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