topic-11324

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Error usando oWord:Find( cText )
Posted: Wed May 28, 2008 02:30 PM

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 Collapse

#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

Javier,

FWH 8.04 2008

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Usando TOleAuto:New( "Word.Application" )
Posted: Wed May 28, 2008 03:35 PM

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

Code: Select all Collapse

#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.

Javier,

FWH 8.04 2008

Antonio Linares

Posts: 44162