Clipper On Line • Ver Tópico - Usando WORD.
Página 1 de 1

Usando WORD.

MensagemEnviado: 30 Abr 2020 11:25
por Itamar M. Lins Jr.
Ola!
oWord:=WIN_OLECREATEOBJECT():New( "Word.Application" )
oWord:Documents:Open("C:\DOCTO.DOC")

oTexto := oWord:Selection()
oclip := oWord:Selection()

*PARA REEMPLAZAR UN TEXTO
oTexto:HomeKey(6) //NOS VAMOS AL INICIO DEL DOCUMENTO
oTexto:find:text := "CADENA" //LO QUE VOY A BUSCAR
oTexto:find:Forward = .T. //BUSCAR HACIA ABAJO
IF oTexto:find:execute() //EJECUTAR LA BUSQUEDA Y SI FUE TRUE
   oTexto:Text := "HOLA MUNDO" //REEMPLAZO EL TEXTO
ENDIF

*PARA COPIAR UN TEXTO
oTexto:HomeKey(6) //NOS VAMOS AL INICIO DEL DOCUMENTO
oTexto:find:text := 'CADENA' //LO QUE VOY A BUSCAR
oTexto:find:Forward = .T. //BUSCAR HACIA ABAJO
IF oTexto:find:Execute() //EJECUTAR LA BUSQUEDA Y SI FUE TRUE
   oclip:SelectRow() //SELECCIONO EL RENGLON
   oclip:Copy() //COPIO LA SELECCION
ENDIF

*PARA PEGAR ALGO QUE COPIE
oclip:paste()
*PARA CORTAR LA SELECCION
oclip:CUT()

oWord:Set("WindowState", 1 ) // Maximizado
oWord:Set("PrintPreview",1)
oZoom:=oWord:get("ActiveWindow"):get("ActivePane"):get("View"):get ("zoom")
oZoom:pagefit := 2
oWord:Visible := .T.

oTexto:End()
oword:end()


Saudações,
Itamar M. Lins Jr.

Usando WORD.

MensagemEnviado: 30 Abr 2020 18:53
por Poka
Obrigado Itamar.

grato

Poka