Fórum Integração Delphi Word #583336

 


var  WordApp: variant; { variável do Word }
    Document: variant; { documento do Word }
        path: string;
begin
{ inicia o Word, caso já não esteja rodando }
  if VarIsEmpty(WordApp)
     then WordApp := CreateOleObject('Word.Application');
  path := ExtractFilePath(Application.ExeName);
  Document := WordApp.Documents.Open(path + 'Cartas\\CARTA_ANIVERSÁRIO.doc');
  WordApp.Visible := True;

{ Move os dados da tabela para o documento do word. }
  Document.FormFields.Item('Nome').Result :=
    ADOTbCartas.FieldbyName('Nome').AsString;
  Document.FormFields.Item('CPF').Result :=
    ADOTbCartas.FieldbyName('CPF').AsString;
 // Document.FormFields.Item('RG').Result :=
 //   ADOTbCartas.FieldbyName('RG').AsString;
 // Document.FormFields.Item('Email').Result :=
 //   ADOTbCartas.FieldbyName('Email').AsString;
end;