Arquivo doc com tabela com colunas de tamanhos diferentes

Delphi

16/07/2004

A rotina a seguir funciona direitinho. Será criado o arquivo teste.doc com uma tabela com uma linha e três colunas. Cada célula com seu respctivo texto dentro.
O problema é que eu preciso que as colunas tenham tamanho diferente umas das outras.
É possível isso? Como ficaria a rotina?

Veja a rotina:

Var
WordApp,WordDoc,WordTable,WordRange: Variant;
VLinha, VColuna: integer;
begin
WordApp := CreateOleobject(´Word.Basic´);
WordApp.Appshow;

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

WordTable := WordDoc.tables.Add(WordDoc.Range,1,3);
WordTable.cell(1,1).range.text:= ´Coluna Um. Tamanho médio´;
WordTable.cell(1,2).range.text:= ´Dois. Menor de todas´;
WordTable.cell(1,3).range.text:= ´Coluna Três. Essa um ficaria a maior ´;

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

Obrigado.


Valdirdill

Valdirdill

Curtidas 0
POSTAR