Insertar datos a word

[Manuel]

a pesar de todo los cambios incluso los que me propobe roman, igual sigo sin ver el resultado.

[roman]

¿Puedes preparar una pequeña plantilla de muestra y el código? De ser así, ponlo en un zip y adjúntalo al mensaje.

// Saludos

[Manuel]

Gracias roman por tu interes, te mando plantilla

[roman]

Pues me ha funcionado tal cual. De cualquier manera te he preparado un ejemplo para que lo pruebes. Tiene algunas pequeñas diferencias como el uso de OleVariant en lugar de Variant, pero no creo que esto afecte realmente.

También agregué el método:

Código Delphi [-]
Word.ActiveWindow.View.ShowFieldCodes := false;

que debe forzar a que se vean los valores y no los campos. Si te marca un error, simplemente quita esa línea.

Va incluido el ejecutable, pero sólo funcionará si tienes instalado el Delphi 7.

// Saludos

[Manuel]

gracias roman, ahora todo bien

[arthurmax]

El ejercicio me funciona perfectamente, excepto por el hecho que la plantilla ".dot", queda abierta aún cerrando la aplicación en la que se genera el documento de Word, agradezco que me puedan decir cómo cierro la plantilla.

Gracias

[fmatias]

Qusiera aprovechar este hilo para intentar resolver mi problema.
Tengo una variante del código descrito anteriormente que comprueba si existe ya un documento de word.

Si existe el documento abre el existente y si no existe abre el documento plantilla.

Código Delphi [-]
  Word: Variant;
  Documento: Variant;

begin
 (* Creamos un objeto Word *)
  Word := CreateOleObject('Word.Application');

  (* Añadimos un documento basado en la plantilla *)
  if FileExists(dbDOC.field.value) then   // si existe el fichero lo abrimos
     documento:=Word.Documents.Open(dbDOC.field.value)
  else  // abrimos la plantilla
    Word.Documents.Add(ExtractFilePath(Application.ExeName)+'Docs\Plantillas\caso1.dot');

    Documento := Word.Documents.Item(1);
    (* Asignas valores a los campos *)
    Documento.Variables.Add('Nombre',nombre );
    Documento.Variables.Add('Direc', direccion);
    Documento.Variables.Add('Local', localidad);
    Documento.Variables.Add('Prov', provincia);

    
    Word.ActiveDocument.SaveAs(ExtractFilePath(Application.ExeName)+'Docs\1Notificacion\'+dbidReg.field.  value);
    // actualizamos la tabla con el nuevo nombre de fichero 
    adocartas1.Edit ;
    dbDOC.field.value:=ExtractFilePath(Application.ExeName)+'Docs\1Notificacion\'+dbidReg.field.value+'.  doc';
    adocartas1.Post ;

   Documento.Fields.Update;
   Word.ActiveWindow.View.ShowFieldCodes := false;
   Word.Visible := true;

end;

Cuando abre el documento plantilla, va perfectamente, pero al abrir un documento existente me aparece un mensaje indicando que ya existe ese nombre de variable refirendose al código donde se añaden las variables.

¿Es posible limpiar las variables creadas en el documento existente?

Quedo pendiente de vuestras respuestas.

[romacruzz]

Tenemos varias [FONT='Verdana','sans-serif']DOCVARIABLE nombre\* MERGEFORMAT } en una plantilla o machote , en delphi queremos programar las busqueda para que encuentre dentro de la platilla estas variables [FONT='Verdana','sans-serif']DOCVARIABLE nombre\* MERGEFORMAT } sustituirlas por informacion que tenemos en una base de datos....Como hacemos esto amigos..[/font][/font]
[FONT='Verdana','sans-serif'][/font]
[FONT='Verdana','sans-serif'][FONT='Verdana','sans-serif']No hay mucha informacion de como tratar archivos de word en delphi...[/font][/font]
[FONT='Verdana','sans-serif']
[/font]

Empezado por fmatias

Qusiera aprovechar este hilo para intentar resolver mi problema.
Tengo una variante del código descrito anteriormente que comprueba si existe ya un documento de word.

Si existe el documento abre el existente y si no existe abre el documento plantilla.


Código Delphi [-]
Word: Variant;
Documento: Variant;

begin
(* Creamos un objeto Word *)
Word := CreateOleObject('Word.Application');

(* Añadimos un documento basado en la plantilla *)
if FileExists(dbDOC.field.value) then // si existe el fichero lo abrimos
documento:=Word.Documents.Open(dbDOC.field.value)
else // abrimos la plantilla
Word.Documents.Add(ExtractFilePath(Application.ExeName)+'Docs\Plantillas\caso1.dot');

Documento := Word.Documents.Item(1);
(* Asignas valores a los campos *)
Documento.Variables.Add('Nombre',nombre );
Documento.Variables.Add('Direc', direccion);
Documento.Variables.Add('Local', localidad);
Documento.Variables.Add('Prov', provincia);


Word.ActiveDocument.SaveAs(ExtractFilePath(Application.ExeName)+'Docs\1Notificacion\'+dbidReg.field. value);
// actualizamos la tabla con el nuevo nombre de fichero
adocartas1.Edit ;
dbDOC.field.value:=ExtractFilePath(Application.ExeName)+'Docs\1Notificacion\'+dbidReg.field.value+'. doc';
adocartas1.Post ;

Documento.Fields.Update;
Word.ActiveWindow.View.ShowFieldCodes := false;
Word.Visible := true;

end;





Cuando abre el documento plantilla, va perfectamente, pero al abrir un documento existente me aparece un mensaje indicando que ya existe ese nombre de variable refirendose al código donde se añaden las variables.

¿Es posible limpiar las variables creadas en el documento existente?

Quedo pendiente de vuestras respuestas.

[ingel]

pero mi pregunta es la siguiente ..puedo generar el archivo 'modelo' el .dot DESDE delphi .. para que asi sean los usuario los que creen los modelos y ponerles a disposicion una serie de VARIABLES que serian los datos que irian entre {} ... que saldrian de un SQL

Gracias a todos
Sds

[luchin001]

Me he cabeceado 2 dias tratando de encontrar la forma de hacerlo, luego me acorde del clubdelphi , lei este hilo y solucionado !

gracias, muchas gracias ...

[emeritos]

Hola compañeros de Delphi. Siguiendo este ejemplo del word al final me ha funcionado bien pero al cerrar la aplicacion me sale este error:

En tienpo de ejecucion --> "Runtime error 216 at 0043A1A"
En tienpo de diseño --> "Access violation at address 774FCAFC en module ole32.dll".

Como lo puedo solucionar.

PD. Este error que me sale al finalizar el programa no me impide que lo cierre y que vuelva a ejecutarlo otra vez, pero no da una buena impresión.

[inirio]

no complicaos
escribeme a mi email i te sire como hacer reporte en word de manera facil
[email protected]

[roman]

Alejandro,

Estos foros son para compartir conocimientos entre todos. Si tienes algo que aportar puedes escribir aquí mismo un mensaje o poner tu aporte en el FTP del club.

Si manejamos las cosas por correos privados, se pierde el sentido de los foros.

// Saludos

[alekhine]

Gracias hermano, esto ya lo estaba buscando hace algun tiempo y esta es la mejor respuesta, a mi me funcionó a la peerfección.
Ahora la inquietud del otro pana es buena, como guardar el documento de una forma transparente para el usuario (automático)....
Gracias

[axel07_89]

Ayuda!! Tengo un docVariable en una plantilla, extraigo los datos desde un memo en delphi 7, el detalle esta en que muestra un símbolo en lugar de dar un salto de linea.

[Casimiro Noteví]

Hola axel07_89, bienvenido a clubdelphi, por favor, lee nuestra guía de estilo para que podamos entendernos mejor, muchas gracias.

[buca1678]

De esta forma paso los datos a una planilla word de una dbgrid insertando en word campos doc variables.

Código Delphi [-]
var
  Word: Variant;
  Documento,A, B, C: Variant;

begin

  (* Creas un objeto Word *)
  Word := CreateOleObject('Word.Application');

  (* Añades un documento basado en la plantilla *)
  Word.Documents.Add('C:\planilla.dot');
  Documento := Word.Documents.Item(1);

  (*Asignas Valores a la Variables*)
  A:=Dbgrid1.DataSource.DataSet.Fields[114].AsString;
  B:=Dbgrid1.DataSource.DataSet.Fields[115].AsString;
  C:= Dbgrid1.DataSource.DataSet.Fields[116].AsString;
  
  (* Asignas valores a los campos *)
  Documento.Variables.Add('Nombre', A);
  Documento.Variables.Add('Direccion', B);
  Documento.Variables.Add('Colonia', C);

  Word.ActiveWindow.View.ShowFieldCodes := false;
  Documento.Fields.Update;
  Word.Visible := true;

end;

[Casimiro Noteví]

Recuerda poner los tags al código fuente, ejemplo:



Gracias

[buca1678]

En word Insertar, Elementos Rapidos, Campo, Categosrias, Automatizacion, DocVariable, en Propiedad del Campo pones el nombre de tu campo.

[ASAPLTDA]

Hola Roman gracias por la informacion de word, podrias ayudarnos ampliando este mensaje para procesar una factura en word. la idea basica es
header igual para todas las paginas
detalle detalle del producto
totales totales del producto


LOGO XXXXXXXXXXXXXXX CIA NOMBRE


CLIENTE NOMBRE CLIENTE FACTURA FECHA
XXXXXX XXXXXXXXXXXXXXXXX XXXXXXXXX XXXXXX

PRODUCTO DESCRIPCION CANTIDAD UNITARIO TOTAL IMPUESTO
XXXXXXX XXXXXXXXXX 1 100.25 100.25 16%
XXXXXXX XXXXXXXXXX 1 100.25 100.25 16%
XXXXXXX XXXXXXXXXX 1 100.25 100.25 16%
XXXXXXX XXXXXXXXXX 1 100.25 100.25 16%
...

TOTAL IMPUESTA 1250.00 TOTAL fACTURA 100.55


usando el ejemplo no pude colocar valores en el header o en el footer, y tampoco sabria como hacer las lineas del detalle


Prodrias ayudarno con algunas lineas de codigo y/o ejmeplo

Gracias