Delphi X Word-Texto Misto -
:?: 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
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
Curtidas 0