Ver Mensaje Individual
  #1  
Antiguo 02-07-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Abrir un documento existente con Microsoft Word

Abrir un documento existente con Microsoft Word utilizando la paleta Servers.

Inserta el componente de la paleta Servers TWordApplication.

Asegurate que el componente TWordApplication tiene la propiedad Autoconnecta False.

A continuación utiliza este código en la función que quieras utilizar para abrir el Word.

Código Delphi [-]
var
   Fichero: OleVariant;
begin
   word.Connect;
   word.Visible:=True;
   Fichero := 'c:\Mis Documentos\fichero.doc'; //PATH DEL FICHERO A ABRIR
   word.Documents.Open(Fichero,EmptyParam,EmptyParam,EmptyParam,
                       EmptyParam,EmptyParam,
                       EmptyParam,EmptyParam,EmptyParam,EmptyParam);
end;

El parámetro "EmptyParam" es una constante del sistema que es equivalente a un parámetro nulo.

Hay que tener en cuenta que el resto de parámetros de la función corresponden a propiedades de apertura (Para más información ver la ayuda de VisualBasic al respecto incluida en la propia instalación del Office).
Responder Con Cita