Crear y ejecutar una macro en Word desde Delphi

[reisa222]

Hola,

Estoy intentando llamar a Word desde Delphi5 y conseguir ejecutar una macro de la que yo también le paso el codigo fuente. Hasta ahora lo que he conseguido es abrir word, ejecutar macros que ya están creadas y guardar, pero no consigo poder pasarle yo la macro.

El codigo que tengo hasta ahora es:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
V: OleVariant;
progname:string;
begin
V:= CreateOleObject('Word.Application');
V.ShowMe;
V.WordBasic.FileNew;
//** V.SendKeys ; No deja hacerlo automáticamente.
//** V.SaveMacro; No deja hacerlo automáticamente.
V.Run('Macro2');
Progname := 'C:\juan2.doc';
V.WordBasic.FileSaveAs (Progname);
end;
end.

Lo he intentado con el SendKeys y con el SaveMacro pero me da error.

Agradecería mucho cualquier ayuda.