Insertar datos a word

[jjkballero]

Estoy buscando la forma de activar directamente los campos desde Delphi, pues ocurre lo siguiente.

Desde el propio Word hay que ir campo por campo uno a uno, entonces necesito desde delphi abrir el documento de word activando los campos, me imagino que estos campos deben tener una propiedad para activarlos, será de esta forma o bien creando una macro en word y ejecutarla desde Delphi, voy a probar a ver si lo consigo, si alguien lo consigue antes que yo, que lo diga, gracias,

[jjkballero]

Para activar los variables en word basta con lanzar la siguiente instrucción:

documento.Fields.ToggleShowCodes y con esto conseguimos activar los campos en word y por tanto que se muestren los datos.

[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

[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