Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Servers (https://www.clubdelphi.com/foros/forumdisplay.php?f=9)
-   -   Crear un documento Word (https://www.clubdelphi.com/foros/showthread.php?t=34918)

destrukthor 25-08-2006 15:34:32

Crear un documento Word
 
Hola de nuevo a todos.
He revisado todos los hilos relacionados con word y en realidad en ninguno me dice como crear un nuevo documento en word, el cual va a tener el nombre que sera ingresado por un Edit.Text.
Las paginas de enlaces que estan en los hilos que revise en este foro estan en ingles, y no soy bilingue.
Si no fuese molestia para el foro necesito una ayuda y un pequeño ejemplo gracias.

no entiendo el comando..

Word.FileNew...

De ante mano Gracias a todos por responder.:confused:

destrukthor 26-08-2006 09:17:35

Que pasa es demaciado vurdo el tema
 
Veo q el interes de mi para delphi no es escuchada.
O es q se creen tan grandes q contestar algo tan vurdo e insignificante no vale la pena.
O es q sois dioses q no pescan al necesitado.
Pues bien solo eso me queda decir de este foro espero no volver a visitarlo y encontrar ayuda en otro.
Es preferible salir por mi cuenta q ser ignorado por el resto del tiempo q me quede.:mad:

destrukthor 28-08-2006 14:05:44

respuesta a una simple pregunta....
 
Bueno aqui esta la solucion ami problema y era tan sencillo responderla que no veo los motivos de haberlo explicado ya q en e los hilos y ejemplos de este foro no esta algo sencillo.

Código Delphi [-]
procedure TFormPric.DBGrid1EditButtonClick(Sender: TObject);
// En mi caso estoy en un grid donde trabajo con Word
Var
  WordApp: OleVariant;
  vDoc: Variant;
  cArchi: String;
begin
  cArchi:=MD.tbMovCauEscrito.Value+'.DOC'; // Aqui esta el Nombre del
                                                            // Archivo a crear o abrir
  WordApp:=ComObj.CreateOleObject('Word.Application');
  IF FileExists(cArchi)=True THEN  // Se pregunta si existe el Archivo
      vDoc:=WordApp.Documents.Open(cArchi)  // Se procede a Abrir el
                                                               // Archivo Existente
  ELSE BEGIN  // En caso contrario se crea con las siguientes instrucciones
      vDoc:=WordApp.Documents.Add; // Crea y agrega un Documento
      vDoc.SaveAs(cArchi);  // Se graba el documento con el nombre 
                                     // de la variable 'cArchi'
  END;
  WordApp.Visible:=True;   // Se visualiza y Ejecuta Word con el documento
                                    // nuevo o abrir el existente
end;
Bueno este proceso me funciona hasta el momento sin problemas.
Si alguien quiere agregar algun comentario a mi rutina sera bien venido, claro esta si a los dioses no les molesta y se dan el tiempo de revisarlo.:p


La franja horaria es GMT +2. Ahora son las 16:49:51.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi