Enviar datos a una plantilla MS Word desde Lazarus

[El_Chava]

Hola de nuevo ya encontre la solución al mi problema les dejo el código.

Código Delphi [-]
procedure TFrmElaborarNotificacion.SpeedButton1Click(Sender: TObject);
var
  Word: Variant;
  Documento,A, B, C: Variant;
  w:widestring;
begin
  (* Creas un objeto Word *)
  try
    {* a la variable "w" le asigno la ruta donde se encuentra la plantilla a utilizar *}
    w:= UTF8Decode(ExtractFilePath(application.ExeName)+'Reportes\plantilla2015.dot');
   Word := CreateOleObject('Word.Application');
    (* Añades un documento basado en la plantilla *)
   Documento := Word.Documents.Add(w);
   Documento := Word.Documents.Item(1);
 
  (*Asignas Valores a la Variables*)
  A:='Usuario';
  B:='Lazarus ';
  C:= 'Object Pascal';
 
  (* 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;  {Make Word visible}
 
  except
   on E: Exception do
      ShowMessage(SysToUTF8(E.Message));
  end;
end;

[ecfisa]

Muchas gracias por compartir la solución

Saludos

[Casimiro Notevi]

[[nlsgarcia]]

El_Chava,

Empezado por El_Chava

...ya encontré la solución...les dejo el código...

Nelson.

[El_Chava]

Empezado por ecfisa

Muchas gracias por compartir la solución

Saludos

De nada para eso estamos para ayudar y compartir soluciones