Foros Club Delphi - Ayuda al abrir un documento word!!

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Ayuda al abrir un documento word!! (https://www.clubdelphi.com/foros/showthread.php?t=16400)

kye_z

26-11-2004 10:45:12

Ayuda al abrir un documento word!!

buenas y antetodo gracias por la ayuda!!

os cuento mi pequeño problema... tengo la intencion de abrir una serie de documentos word desde mi
aplicacion. he estado investigando sobre como hacerlo... y si no he visto mal utilizando un wordAplication
se puede hacer.. mi problema reside
en como lo ejecuto correctamente.

de momento tengo este codigo!!

Código:

 

    var

      filename: olevariant;

    begin

      filename:='documentsVaris\Aviso.doc';

      word.Documents.Open2000(filename);// aki me faltan parametros y no

//se kuales poner

    end;

si me pudieseis echar una manooo os lo agradereria muchissimo!!!

gracias de antemano!!!

p.d. trabajo en delphi7 por si sirve d algo.. jejej :D

Neftali [Germán.Estévez]

26-11-2004 12:29:08

Haz una búsqueda en los foros por "TWordApplication". Hay bastantes mensajes sobre el tema; Si después todavía tienes dudas ya dirás....

Algo rápido:

Código Delphi [-]var
  Word : OleVariant;
begin
  Word := CreateOleObject('Word.Application');
  Word.Documents.Open('c:\Aviso.doc');
  Word.Visible := True;
end;

rafita

26-11-2004 14:15:27

Hola Kye_z,

como te dice Neftali, busca TWordApplication.

Te pongo un pequeño trozo de código de lo que buscas, con un par de parámetros localizados, el resto no los sé (ni tampoco lo he necesitado).

Código:

var Fichero, Marcador, Contenido, SoloLectura, SalvarCambios, FormatoOriginal, Ruta : OleVariant;

    Doc : _document;

    Posicion : Range;

begin

  try

    Word.Connect;

  except

    ShowMessage('Word no está instalado en este equipo.');

    Abort;

  end;



  Fichero:='e:\Pruebas Delphi\carta.doc';

  SoloLectura:=True;

  Doc:=Word.Documents.Open(Fichero, EmptyParam, SoloLectura, EmptyParam, EmptyParam, EmptyParam,

       EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,

       EmptyParam, EmptyParam);

Nota: Word es el nombre que le he puesto al objeto TWordApplication.

kye_z

26-11-2004 16:39:49

Muchissimas Gracias.. mas o menos me sale lo que quiero...

aunque ahun se ha de perfeccionar el tema..

muchas gracias a los dos!!!

Neftali [Germán.Estévez]

29-11-2004 10:34:45

Revisa éste hilo y la sección de componentes del Club (última pagina), tal vez te sirva de ayuda:

TWordParaTorpes

La franja horaria es GMT +2. Ahora son las 01:52:05.