Cómo hacer un "paste" en Word desde VFP

09/07/2003 - 12:08 por Enrique Carmona | Informe spam
Hola grupo:

Necesito pegar un determinado texto en un objeto word. Yo hago:


lclineas= "12212343rlwf off goewoi34235"

oWord=CREATEOBJECT("Word.Application")
docu = "c:\pruebas_varias\otro.doc"
oWord.Application.Documents.Open(docu)
_CLIPTEXT = lclineas
oWord.Application.Documents.PasteAndFormat (lclineas) &&&&&(1)
oWord.Application.Documents.Add.Content.Paste &&&&&(2)
oWord.Application.Visible = .T.

En la línea que pone (1) da error y en la (2) lo que hace es crear otro
documento pegando el contenido de "_CLIPTEXT ". Pero yo quiero pegarlo en el
documento "otro.doc" que lo tengo abierto.

Es un poco lioso pero creo que lo entienden.

Saludos cordiales.

Enrique Carmona.
Sevilla - España
 

Leer las respuestas

#1 José Luis.
09/07/2003 - 13:05 | Informe spam
El método/Propiedad "PasteAndFormat" no lo he encontrado
(empleo la versión 2000) pero algo parecido a lo que
quieres lo he conseguido así, supongo que te faltará
posicionarte en la línea que deseas.

oTuDocumento = oWord.Application.Documents.Open(docu)
oTuDocumento.Content.Paste

Saludos.
José Luis.


Hola grupo:

Necesito pegar un determinado texto en un objeto word. Yo


hago:


lclineas= "12212343rlwf off goewoi34235"

oWord=CREATEOBJECT("Word.Application")
docu = "c:\pruebas_varias\otro.doc"
oWord.Application.Documents.Open(docu)
_CLIPTEXT = lclineas
oWord.Application.Documents.PasteAndFormat (lclineas)


&&&&&(1)
oWord.Application.Documents.Add.Content.Paste


&&&&&(2)
oWord.Application.Visible = .T.

En la línea que pone (1) da error y en la (2) lo que hace


es crear otro
documento pegando el contenido de "_CLIPTEXT ". Pero yo


quiero pegarlo en el
documento "otro.doc" que lo tengo abierto.

Es un poco lioso pero creo que lo entienden.

Saludos cordiales.

Enrique Carmona.
Sevilla - España


.

Preguntas similares