Página 1 de 1
Ole para gerar doc no Word
Enviado: 26 Mai 2011 15:54
por 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
Ole para gerar doc no Word
Enviado: 01 Jun 2011 13:28
por 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
/*--------------------------------------------------------------------------------------*/
/*--------------------------------------------------------------------------------------*/
/*--------------------------------------------------------------------------------------*/
/*--------------------------------------------------------------------------------------*/