Texto Tabela Texto em arquivo .doc, como?

Delphi

20/07/2004

A rotina abaixo cria o arquivo teste.doc.
O que eu preciso e não estou conseguindo é antes da tabela colocar uma linha de texto e óutra linha depois da tabela.
Podes me ajudar?
Obrigado.

procedure TForm1.CriaTabela;
Var
WordApp,WordDoc,WordTable,WordTable1, WordRange : Variant;
begin
WordApp := CreateOleobject(´Word.Basic´);
WordApp.Appshow;

WordDoc := CreateOleObject(´Word.Document´);
WordRange := WordDoc.Range;

WordTable := WordDoc.tables.Add(WordDoc.Range,2,3);

WordTable.Cell(1,1).range.text := ´L Um C Um´;
WordTable.Cell(1,2).range.text := ´L um C dois´
WordTable.Cell(1,3).range.text := ´L um C Tres´;
WordTable.Columns.AutoFit; //para que as colunas fiquem do tamanho desejado.

WordTable.Cell(2,1).range.text := ´L dois C Um´;
WordTable.Cell(2,2).range.text := ´L dois col 2´;
WordTable.Cell(2,3).range.text := ´L doisColuna 3´;

WordDoc.SaveAs(´C:\teste.doc´);
end;


Valdirdill

Valdirdill

Curtidas 0
POSTAR