Página 1 de 1

Word desde Xailer (2)

Publicado: Mié Sep 17, 2008 4:11 pm
por Xevi
Necesito ayuda,...
Intento cambiar contenido de un documento Word desde Xailer y me veo
incapaz.
Utilizo OLE.
Según las ayudas que he podido averiguar...
LOCAL oWord, oDoc, myRange
oWord := CreateObject( "Word.Application" )
oWord:Visible := .T.
oDoc := oWord:Documents:Open( "C:test.doc" )
myRange = oWord:ActiveDocument:Content
MSGINFO( myRange:Find:Execute( "HOLA" ) )
//Hasta aquí correcto... me informa que SI existe el texto "HOLA"
//Ahora bien si intento sustituir el texto...
myRange = oWord:ActiveDocument:Content
With OBJECT myRange:Find
:ClearFormatting()
:Replacement:ClearFormatting()
:Text := "HOLA"
:Replacement:Text := "ADIOS"
:Execute( nReplace:=2 )
End With
//O bien sea por este otro ejemplo que he encontrado...
myRange = oWord:ActiveDocument:Range(0,0)
With OBJECT myRange:Find
:ClearFormatting()
:Text = "HOLA"
With OBJECT :Replacement
:ClearFormatting()
:Text = "ADIOS"
End With
:Execute( 2, .T., .T., .T. )
End With
oDoc:SaveAs( "C:test.doc" )
//No me muestra el documento con el texto cambiado.
RETURN Nil
¿Que estoy haciendo mal??? :-(
¿Que me falta??? :-(
Gracias.
:-)
Un Saludo,
Xevi.