Arquivo doc com tabela com colunas de tamanhos diferentes
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.
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
Curtidas 0