criar/gerar documento word

Question

Ol� pessoal,

Depois de muito pesquisar, n�o s� aqui no cluebedelphi, mas tamb�m em outros sites relacionados ao delphi, encontrei muita coisa,

Massuda · Answer

A Microsoft disponibiliza online a documenta��o sobre VBA e interface de automa��o para a vers�o mais recente do Office [url=http://msdn.microsoft.com/library/en-us/dnanchor/html/odc_ancoffice.asp]nesta p�gina do MSDN[/url]; em particular, esta � [url=http://msdn.microsoft.com/library/en-us/vbawd11/html/WordVBAWelcome_HV01135786.asp]p�gina inicial do VBA do Word[/url] e [url=http://msdn.microsoft.com/library/en-us/vbawd11/html/womscProgrammaticIdentifiers_HV05212309.asp]esta p�gina[/url] apresenta os diferentes objetos de automa��o que cada aplicativo Office exp�e.

Lindomar.des · Answer

Massuda,Obrigado pela dica. Antes mesmo de postar essa mensagem encontrei uma dica a respeito de gravar macros no word e depois editar o c�digo da macro. Com isso consegui configurar as margens e mudar a cor da fonte do texto usando �Word.Application�.Agora estou tentando inserir um hyperlink. Vou verificar os links q vc me passou. Assim que conseguir o q quero vou postar todo o c�digo aqui no f�rum.Muito obrigado pela ajuda....

M · Answer

Desculpe �o poder ajudar, mas estou com o mesmo problema.

Quando achar algo lhe aviso.

Gostaria se poss�vel ser avidado quando voce colocar no f�rum a documentacao que achou. Gostaria de uma c�pia.

Boa sorte.

Lindomar.des · Answer

Pessoal,   Conforme havia dito, segue a rotina para gerar um arq. p/ word. Tive como base inicial o artigo de: Felipe Monteiroque postou uma dica no f�rum do Planeta Delphi: www.delphi.eti.br. �Como usar recursos do word?�. A qual fiz as modifica��esde acordo com minha necessidade. Tive como base final o arq. de ajuda da Microsoft que me foi indicado pelo colega Massuda.   � certo que o codigo abaixo precisa, e vou enxug�-lo, mas � que o terminei agora e estava ancioso para post�-lo.Acredito servir� para ajudar a outros colegas. Pe�o desculpas aos moderadores se em algum momento feri as regras de condultacom este post.UsesComObj, ActiveX, Word2000, OleServer;procedure TfrmPedido.GerarArquivoWord;var  Document, Range, Link: Variant;  iItem, iLinhasOBS: Integer;  sPrazo: string;begin  NewWord := CreateOleObject(�Word.Application�);  NewWord.Visible := True;  iItem := 0;  //adciona nova linha/par�grafo  Document := NewWord.Documents.Add();  //ajusta as margens  Document.PageSetup.TopMargin := �1,02 cm�;  Document.PageSetup.BottomMargin := �2,49 cm�;  Document.PageSetup.LeftMargin := �1,1 cm�;  Document.PageSetup.RightMargin := �1,1 cm�;  Range := Document.Paragraphs.Item(1).Range;  //ajusta o alinhamento do paragrafo  Range.ParagraphFormat.Alignment := wdAlignParagraphCenter;  //ajusta o tipo de fonte  Range.Font.Name := �Times New Roman�;  Range.Font.Size := 26;  //negrito  Range.Bold := 1;  Range.Text := dmMaster.IBDFilialFANTASIA.Value;  //adciona nova linha/par�grafo  Docume...

Lindomar.des · Answer

[quote=�Lindomar.des�]Pessoal,   Conforme havia dito, segue a rotina para gerar um arq. p/ word. Tive como base inicial o artigo de: Felipe Monteiroque postou uma dica no f�rum do Planeta Delphi: www.delphi.eti.br. �Como usar recursos do word?�. A qual fiz as modifica��esde acordo com minha necessidade. Tive como base final o arq. de ajuda da Microsoft que me foi indicado pelo colega Massuda.   � certo que o codigo abaixo precisa, e vou enxug�-lo, mas � que o terminei agora e estava ancioso para post�-lo.Acredito servir� para ajudar a outros colegas. Pe�o desculpas aos moderadores se em algum momento feri as regras de condultacom este post.UsesComObj, ActiveX, Word2000, OleServer;procedure TfrmPedido.GerarArquivoWord;var  Document, Range, Link: Variant;  iItem, iLinhasOBS: Integer;  sPrazo: string;begin  NewWord := CreateOleObject(�Word.Application�);  NewWord.Visible := True;  iItem := 0;  //adciona nova linha/par�grafo  Document := NewWord.Documents.Add();  //ajusta as margens  Document.PageSetup.TopMargin := �1,02 cm�;  Document.PageSetup.BottomMargin := �2,49 cm�;  Document.PageSetup.LeftMargin := �1,1 cm�;  Document.PageSetup.RightMargin := �1,1 cm�;  Range := Document.Paragraphs.Item(1).Range;  //ajusta o alinhamento do paragrafo  Range.ParagraphFormat.Alignment := wdAlignParagraphCenter;  //ajusta o tipo de fonte  Range.Font.Name := �Times New Roman�;  Range.Font.Size := 26;  //negrito  Range.Bold := 1;  Range.Text := dmMaster.IBDFilialFANTASIA.Value;  //adciona nova l...

Guinther · Answer

// Exportando DataSet para Word{ Declare ComObj no uses }procedure ExpDOC(DataSet: TDataSet; Arq: string);var  A,D,T,R: Variant;  Row,Column: integer;begin  A := CreateOleobject(�Word.basic�);  A.Appshow;  D := CreateOleobject(�Word.Document�);  R := D.Range;  T := D.tables.Add(    D.Range,1,DataSet.FieldCount);  for Column:=0 to DataSet.FieldCount-1 do    T.cell(1,Column+1).range.text:=      DataSet.Fields.Fields[Column].FieldName;  Row := 2;  DataSet.First;  while not DataSet.Eof do begin     T.Rows.Add;     for Column:=0 to DataSet.FieldCount-1 do       T.cell(Row,Column+1).range.text :=         DataSet.Fields.Fields[Column].DisplayText;     DataSet.next;     Row := Row+1;  end;  D.SaveAs(Arq);  D := unAssigned;end;{ Exemplo de utiliza��o }ExpDOC(ClientDataSet1,�teste.doc�);...