Insertar datos a word

[Manuel]

sigo con problemas, este mi código delphi

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Word: Variant;
  Documento: Variant;

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

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

  (* Asignas valores a los campos *)
  Documento.Variables.Add('nombres', 'pepe pérez');
  documento.Fields.ToggleShowCodes;
  Documento.Fields.Update;

  Word.Visible := true;


end;

esta es mi plantilla:

Carta

El señor

{MERGEFIELD nombres \* MERGEFORMAT}



ewl resulto me sale exactamente lo mismo que la plantilla

[jjkballero]

Mira yo tengo el código igual solo que el update de las variables lo hago antes que el ToggleShowCodes y me funciona.

No se si las variables de word las insertas a mano o desde la opción

Insertar --> Campo y seleccionas la opción DocVariable

A ver si está ahí la cuestión.

[roman]

Un par de comentarios:

ToggleShowCodes, más que activar los campos, alterna entre ver los códigos o ver los valores. Si en Word tenemos desmarcada la opción de ver los códigos, entonces ToggleShowCodes la marcará y lo que veremos son los códigos y no los valores.

El que se muestren los códigos o valores no afecta la impresión del documento. Siempre se imprimirán los valores actuales.

Por otra parte, veo que Manuel usa:

{MERGEFIELD nombres \* MERGEFORMAT}

pero debe ser

{DOCVARIABLE nombre\* MERGEFORMAT}

// Saludos

[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

[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

[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

[inirio]

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

[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

[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;

[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

[roman]

En el header y el footer de Word puedes insertar también variables de documento como las del ejemplo.

Para el caso de una tabla ya es distinto. Podrías combinar esto con el ejemplo de aquí.

// Saludos

[ASAPLTDA]

Empezado por Manuel

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

Hola Manuel, no es tarde la respuesta es solo que segui este tema para enviar datos a word. La solucion Manual al problema es que debes en el .Dot Tener :
menu tools, menu options, tabsheet view Field Codes sin marcar (no chulo), lo que no se es como decirlo desde delphi .

Una vez lo elimna la marca salva el archivo .dot y genera nuevamente la impresion y esto hace que funcione

Gracias a los usarios de es tema por sus comentarios