Delphi X Word-Texto Misto -

Delphi

03/10/2003

:?: Delphi X Word-Texto Misto [Parte Texto parte Tabela]

Com a ajuda do Fórum consegui escrever alinhadas minhas informações
criando uma tabela. Minha duvida agora é como escrever no inicio da pagina,
um texto normal como, nome, endereço, etc... Parte da página não pode estar tabulada.
Com o código abaixo eu monto a tabela, mais ela seleciona todo conteúdo
do documento.

NumCol := Table1.FieldCount - 1;
Word := CreateOleObject(´Word.Basic´);
word.appshow;
word.filenew;

While not Table1.EOF do
Begin
For I:=1 to Table1.fieldcount-1 do
word.Insert(Table1.fields[i].AsString+#9);
Table1.Next;
End;

Word.editselectall;
Word.TextToTable(ConvertFrom := , NumColumns := NumCol);
word.TableSelectTable;
Word.TableSelectRow;
Word.TableHeadings(1);
Word.TableAutoFormat(Format:=16,HeadingRows:=1);

Caso alguém possa dar uma dica.
Obrigado.
Neto


Neto

Neto

Curtidas 0
POSTAR