Fórum Gerar relatorio no Word - Quase pronto... #186848

:?: Olá a todos.
Com a ajuda do forum, já consegui evoluir. Mas ainda não deu tudo certo.
Com o codigo abaixo eu preciso:
1. Escrever um texto, sem formatação,
2. Escrever o conteudo de uma tabela,
3. Antes de mudar de página preciso novamente escrever um texto livre, sem formatação.


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

Word.Insert(#13 + ´ TEXTO LIVRE A DISPOSIÇÃO - TESTE...);
Word.Insert(13 + ´ T E S T E S - = = = = TESTE´);
Word.Insert(13 + ´ TESTES>>>>>´);
Word.Insert(13 + ´ INICIAR. .. . . .´);
Word.Insert(13 + 9 + ´´);


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

Word.EditSelectAll;
Word.TextToTable(ConvertFrom := , NumColumns := NumCol);
Word.TableSelectTable;

Word.TableSelectRow;
Word.TableHeadings(1);
Word.TableAutoFormat(Format:=16 , HeadingRows:=1);

O problema é que eu não consigo selecionar apenas parte do texto.
Onde consigo dicas, sobre os comandos para gerar texto no Word.
Muito Obigado.
Neto