10 respuestas en este tema

[Fleon]

Hola, ¿Hay alguna manera de crear y abrir archivos .doc con contenido desde Delphi?, mi objetivo es lograr hacer una carta en delphi y asignarle una numeración desde la base y grabarlo como archivo .doc y también abrirlos, ¿se puede?.

Fleon xD

[eduarcol]

si se puede, claro que si, y es muy facil....

[Fleon]

si se puede, claro que si, y es muy facil....

Gracias Eduarcol, ¿pero no tendrás algún ejemplito por ahí?  .

Fleon xD

[eduarcol]

utilizando tecnología OLE, agrega al uses comobj

delphi

var
   WApplication, WDocument: Variant;
   lArchivo: String;
begin
   //Creamos el objeto OLE para automatizacion
   WApplication := CreateOleObject('Word.Application') ;
 
   //buscamos un documento
   if od.Execute then
      lArchivo := od.FileName;
 
   if FileExists(lArchivo) then
      //Si el archivo existe lo abrimos
      WDocument := WApplication.Documents.Open(lArchivo)
   else
   begin
      //si no existe pregunta si desea agregarlo nuevo
      if MessageDlg('El documento no existe, ', mtWarning, [mbyes,mbno], 0) = mrYES then
         WDocument := WApplication.Documents.Open(lArchivo)
      else
      begin
         //Cierra el archivo y se sale
         WApplication.Quit(False);
         Exit;
      end;
   end;
   //Escribimos algo
   WApplication.Selection.TypeText('Hola Mundo') ;
   //Grabamos y cerramos
   if sd.Execute then
      WDocument.SaveAs(FileName := sd.FileName, 
                       AddToRecentFiles := False) ;
   WApplication.Quit(False)
end;

Archivos adjuntos

•  229_.zip   222,73KB   13 descargas

[eduarcol]

se me olvidaba:

OD = Open Dialog
SD = Save Dialog

[Fleon]

Muy buen ejemplo amigo, ahora lo reviso, en un momento te comento.

Fleon xD

[eduarcol]

vistes te dije que si se podia y que era facil, ultimamente estamos muy incredulos jajaja

[Fleon]

vistes te dije que si se podia y que era facil, ultimamente estamos muy incredulos jajaja

jeje sí ya veo, pero eso no es lo que necesito lo acabo de probar aunque sí me será útil en otra cosa , lo que necesito es tener el word dentro de delphi, o sea, el editor de word donde me salga la hoja en blanco, que pueda abrir documentos existentes y editarlos, que esté en una form.

Fleon xD

[eduarcol]

ah bueno, hubieramos comenzado por alli, lo que necesitas es un ole container:

1.- en la pestaña system, hay un componente llamado OleContainer, agregalo
2.- dale click con el boton derecho y selecciona Insert Object
3.- Selecciona el documento de word
4.- Dale aceptar
5.- De nuevo con el boton derecho, dale en abrir
6.- Cierra el word que se abre
7.- Correlo y dale doble click.

[Rolphy Reyes]

Saludos.

Tarde pero aquí hay otro ejemplo.

Si necesitas algo más complicado, Al Gonzalez tiene un componente excelente.

P.D. Si estoy violando alguna regla con hacer "publicidad", por favor corrijan el mensaje.

[egostar]

P.D. Si estoy violando alguna regla con hacer "publicidad", por favor corrijan el mensaje.

Ninguna amigo RolphyReyes, en primera porque sabemos que son recomendaciones y como tales son válidas, segundo porque Al González es ademas de ser una gran persona es nuestro amigo y tercero en DelphiAccess lo único que no vemos bien es el SPAM artero y colocar ligas que violan derechos de autor.

Gracias por la info.

Salud OS