Ole para gerar doc no Word

[momente]

Amigos,

Eu encontrei um exemplo simples para gerar um documento no Word, porém não estou conseguindo incluir mais de uma linha no documento, ele sempre sobrepõe e me mostra apenas uma linha.

Aonde encontro as referencias para utilizar o OLE, ou será que alguém tem algum exemplo um pouco mais completo?

Valeu Amigos.

Rogério Momenté
LookSystem Informática

[janio]

Colega,

Eu faço gerando um TXT primeiro e exportando-o em seguinda para um arq temporario *.doc. Tem funcionado!

Código: Selecionar todos

/*--------------------------------------------------------------------------------------*/
/*--------------------------------------------------------------------------------------*/
/*--------------------------------------------------------------------------------------*/
/*--------------------------------------------------------------------------------------*/

Function Abre_word(cARQ)
Local oWord,oText,oRange, oFILE
Local ArqDoc

oFILE = GeraFile()

ArqDoc = oFILE + ".doc"

Copy File cARQ TO (oFILE)
millisec(300)
RenameFile( oFILE, ArqDoc )
millisec(300)

oWord:=TOleAuto():New( "Word.Application" ) 
oWord:Documents:Open( ArqDoc ) 
oWord:WindowState := 1 
oWord:Visible := .t. 

Return nil

/*--------------------------------------------------------------------------------------*/
/*--------------------------------------------------------------------------------------*/
/*--------------------------------------------------------------------------------------*/
/*--------------------------------------------------------------------------------------*/

FUNC GERAFILE()
Local cFILE

cFILE := "C:\a" + AllTrim( STR( RANDOM(99999) ))

Return cFILE

/*--------------------------------------------------------------------------------------*/
/*--------------------------------------------------------------------------------------*/
/*--------------------------------------------------------------------------------------*/
/*--------------------------------------------------------------------------------------*/