Texto Tabela Texto em arquivo .doc, como?
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;
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
Curtidas 0