Error usando oWord:Find( cText )

[jfafive]

Hola a todos/as;

Estoy usando el siguiente codigo con un fichero word que contiene tres palabras sueltas, entre ellas "Hola". Cuando invico al metodo .Find, se bloquea la aplicación.

Una ayudita por favor??

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   local cFile      := ""

         MsgInfo( "antes de crear word" )
         oWord := TWord():New()


         cFile := "c:\tmp\Hola.doc"

         MsgInfo( cFile )
         MsgInfo( "antes abrir doc" )
         oWord:OpenDoc( cFile )

         MsgInfo( "antes buscar" )
         nVal := oWord:Find( "Hola" )
         MsgInfo( nVal )

         MsgInfo( "antes cerrar" )
         oWord:Close()


return nil


[jfafive]

Estoy usando una sintaxis alternativa para lo que quiero hacen en el ejemplo anterior. Esta es la sintaxis:

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   local cFile      := ""
   local oTexto
   local oWord

   oWord := TOleAuto():New( "Word.Application" )
   oWord:Documents:Open( "e:\tmp\Hola.doc" )

   oTexto := oWord:Selection()

   oTexto:HomeKey(6) // inicio documento

   oTexto:Find:text := "Hola"

   oTexto:Find:Forward := .t.

   MsgInfo( oTexto:find:execute() )

   oTexto:End()
   oWord:End()

return nil


Pero me da error en oWord:End()
¿alguien sabe como cerrar el documento abierto?
¿y como destruir el objeto oWord, creado?

Un saludo.

[Antonio Linares]

Javier,

Prueba con oWord:Quit()

[jfafive]

Ok,

Funciona.