Jump to content
Fórum Script Brasil
  • 0

Passar Dados Para O Word No Delphi


Guest --rogerio --

Question

3 answers to this question

Recommended Posts

  • 0
Guest --Walter Gazzarrini Neto --
Como faço para ligar dados do banco de dados para o word xp ou superior ou ligar dados do form para o word agradeço desde de já obrigado.

var
  Word : Variant;
begin
  Word := CreateOleObject('Word.Application');
  Word.Visible := True;
  Word.Documents.Add;
  Word.Selection.InsertAfter(Memo1.Text);
  Word.ActiveDocument.SaveAs('teste.doc',0);

Isso ai vai colocar o conteudo do memo no Word,aí você pode usar sua criatividade encima desse código!!!!,para fechar o word use''Word.Quit;'', espero ter ajudado...

Link to comment
Share on other sites

  • 0

Fiquei pensando nesse tópico e tive essa idéia de pegar os registros dos edits do form e jogar no word vê se ajuda.....

procedure TForm1.Button1Click(Sender: TObject);
var
  Word : Variant;
  i : Integer;
begin
  i := 3;  //aqui você coloca o número de edits que você tiver no form
  if Components[i] is TEdit then
  begin

    Word := CreateOleObject('Word.Application');
    Word.Visible := True;
    Word.Documents.Add;
    word.selection.text:=TEdit(Components[2]).Text+'   '+ TEdit(Components[3]).Text+'  '+TEdit(Components[4]).Text; //Aqui você insere o conteúdo do edit no word, o nº do componente é o valor de seu tab order
  // Word.ActiveDocument.SaveAs('teste.doc',0); não consegui fazer salvar automaticamente somente quando fecha o word, mas é até melhor
  // Word.Quit;
  end;
end;

Se você quiser limpar o conteudo dos edits TEdit(Components).Text := '';,agora você pode ir inserindo dados com 'word.selection.text:=' e criar tipo uma tabela no word e ir formatando a sua preferencia...

Edited by Micheus
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)
Link to comment
Share on other sites

  • 0
Guest --ROGERIO --

Obrigado pelas dicas vou testar e logo passo o resultado sem mais e um obrigado...

Edited by Micheus
Não observação do item 3.7 das regras do forum - NÃO digite em caixa alta (1º AVISO)
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152k
    • Total Posts
      651.5k
×
×
  • Create New...