Ver Mensaje Individual
  #3  
Antiguo 28-08-2006
Avatar de destrukthor
destrukthor destrukthor is offline
Miembro
 
Registrado: may 2006
Posts: 57
Reputación: 19
destrukthor Va por buen camino
Thumbs up 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.
__________________
Solo se q nada Se, Cada dia es un aprendisaje y asi siempre sera.

Última edición por roman fecha: 28-08-2006 a las 17:28:39. Razón: Añadir etiqueta [delphi] para mayor legibilidad
Responder Con Cita