Запуск макроса в открытом на данный момент Word или Excel

[demiancz]

Суть вопроса такова.
Как сделать что бы программа запускала выполнение макроса в открытом на данный момент документе Word или Excel? Каждый раз название файлов Word и Excel разное. Надо сначала определить что документ открыт, а потом в нем запустить макрос.
В Интернете нашел такой пример запуска макроса

vvWord.Application.Run( 'Macros Name' );

А вот как определить какой открыт документ не знаю. Помогите пожалуйста!

[demiancz]

Вот вариант когда создаешь свой документ и запускаешь в нем макрос. Но мне это не подходит. Надо узнать что документ уже открыт и именно в этом документе выполнить макрос.

w:=CreateOleObject('Word.Application');
w.Documents.Open(ExtractFilePath(paramstr(0))+'/Test.doc',ReadOnly := true);
w.Visible := true;
w.ActiveDocument.Application.Run('Макрос1');

[demiancz]

Как запустить макрос в Word решил:

procedure TForm1.Button1Click(Sender: TObject);
begin
try
  MyWord := GetActiveOleObject('Word.Application');
  MyWord.ActiveDocument.Application.Run('Макрос1');
except
  Showmessage ('Не открыт Word');
end;
end;

а вот с Excel проблема:

procedure TForm1.Button2Click(Sender: TObject);
begin
try
  MyExcel:= GetActiveOleObject('Excel.Application');
  MyExcel.ActiveDocument.Application.Run('Макрос1');
except
  Showmessage ('Не открыт Excel');
end;
end;

Но при нажатии на кнопку появляется сообщение "Не открыт Excel". В чем проблема не пойму.

[demiancz]

Походу никто ничего не знает по этой теме. Вникаю пока сам. Помогли на другом форуме таким кодом:

procedure TForm1.Button1Click(Sender: TObject);
begin
try
  MyExcel:= GetActiveOleObject('Excel.Application');
  MyExcel.Run('Макрос1');
except
  Showmessage ('Не открыт Excel');
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
try
  MyWord := GetActiveOleObject('Word.Application');
  MyWord.ActiveDocument.Application.Run('Макрос1');
except
  Showmessage ('Не открыт Word');
end;
end;

Кнопка для Word работает без проблем. А вот с Excel2007 проблема. Пишет "Не открыт Excel". Днем попробовал на Excel2003 неожиданно заработало. Потом переписал макросы и почему то перестало работать. Сейчас все же мучаюсь с программой под Excel2007. при нажатии на кнопку выдает ошибку:

First chance exception at $7C812AFB. Exception class EOleException with message 'OLE error 800A03EC'. Process Project1.exe (3612)

Хоть кто нибудь, хоть как то помогите!!!