Ver Mensaje Individual
  #4  
Antiguo 18-04-2005
sur-se sur-se is offline
Miembro
 
Registrado: may 2003
Posts: 212
Reputación: 22
sur-se Va por buen camino
Rectificación.

Hola. Rectifico el post que puse antes, porque si que me funciona bien con otras versiones del Word (2002, XP, etc). Tenía un error en el código del programa y estaba abriéndose otro archivo. No es necesario el componente mailmerge. Detallo el código a continuación:

Código:
...
uses Word97;
...
var Word: Variant;
     FileName: OleVariant;
begin
...
     // Creamos el objeto WordApplication
     try
         Word := GetActiveOleObject('Word.Application');
     except
         Word := CreateOleObject('Word.Application');
     end;
...

      FileName := 'c:\'+fichero_word;
      Word.Documents.Open(FileName, EmptyParam, EmptyParam, 
                                     EmptyParam,EmptyParam, EmptyParam,
                                     EmptyParam, EmptyParam,
                                     EmptyParam, EmptyParam);

      ... <hacemos lo que necesitemos con el documento>

      Word.Visible := True;
      ...
end;
Salu2.
Responder Con Cita