Alaska Software Inc. - ActiveX - Word - Copy Paste
Alaska Software Inc. - ActiveX - Word - Copy Paste
Username: Password:
AuthorTopic: ActiveX - Word - Copy Paste
Domingo SerranoActiveX - Word - Copy Paste
on Mon, 19 Dec 2016 23:58:27 +0100
Hola,
Necesito una cosa muy sencilla:
Pegar, al final de un documento Word, el contenido de otro documento Word.
He grabado macros, pero no sé como traducirlo a ActiveX en Xbase++.

Gracias por anticipado.
Domingo Serrano.
Jorge LRe: ActiveX - Word - Copy Paste
on Fri, 23 Dec 2016 08:14:16 -0300
Hola Domingo
te comento que sòlo uso word con marcadores según el ejemplo de alaska

te paso este link que se desprende de la ayuda del VBA de word que se invoca 
con alt+f11
https://msdn.microsoft.com/es-es/library/ff837718.aspx

espero que te sea útil

saludos y felices fiestas

"Domingo Serrano" escribió en el mensaje de 
noticias:17ffa7f3$3f3769c8$205b89@news.alaska-software.com...

Hola,
Necesito una cosa muy sencilla:
Pegar, al final de un documento Word, el contenido de otro documento Word.
He grabado macros, pero no sé como traducirlo a ActiveX en Xbase++.

Gracias por anticipado.
Domingo Serrano.
Domingo SerranoRe: ActiveX - Word - Copy Paste
on Sat, 24 Dec 2016 11:20:43 +0100
Muchas gracias, Jorge.
Intentaré implementarlo con Xbase++.

Felices Fiestas.

"Jorge L" <jlborlando@way.com.ar> wrote in message
news:25ecb1c$17ec981d$21a@news.alaska-software.com...
>Hola Domingo
>te comento que sòlo uso word con marcadores según el ejemplo de alaska
>
>te paso este link que se desprende de la ayuda del VBA de word que se invoca 
>con alt+f11
>https://msdn.microsoft.com/es-es/library/ff837718.aspx
>
>espero que te sea útil
>
>saludos y felices fiestas
>
>"Domingo Serrano" escribió en el mensaje de 
>noticias:17ffa7f3$3f3769c8$205b89@news.alaska-software.com...
>
>Hola,
>Necesito una cosa muy sencilla:
>Pegar, al final de un documento Word, el contenido de otro documento Word.
>He grabado macros, pero no sé como traducirlo a ActiveX en Xbase++.
>
>Gracias por anticipado.
>Domingo Serrano.
César Calvo Re: ActiveX - Word - Copy Paste
on Sat, 24 Dec 2016 14:13:26 +0100
Hola Domingo, si puedo lo miro y te digo algo.
Felices fiestas y próspero año nuevo a todos.
César Calvo.

"Domingo Serrano" escribió en el mensaje de 
noticias:17ffa7f3$3f3769c8$205b89@news.alaska-software.com...

Hola,
Necesito una cosa muy sencilla:
Pegar, al final de un documento Word, el contenido de otro documento Word.
He grabado macros, pero no sé como traducirlo a ActiveX en Xbase++.

Gracias por anticipado.
Domingo Serrano.
César Calvo Re: ActiveX - Word - Copy Paste
on Sat, 24 Dec 2016 18:37:17 +0100
He probado con lo que visualizo pero no se porque no inserta el documento 
dos en el uno, es como si hiciera copiar y pegar.
Puede que hay que ver la manera de seleccionar el final del documento uno y 
luego hacer lo que te pongo.
Investiga a ver si lo consigues.
Un saludo.
César.

PROCEDURE InsertDocument()
LOCAL oWord,oDoc, cFile

   Create a Word ActiveX component
  oWord := CreateObject("Word.Application")
  IF Empty( oWord )
    MsgBox( "Microsoft Word is not installed" )
  ENDIF

  oWord:visible := .T.

  cFile := "D:\UNO.docx"

  oWord:documents:open( cFile )
  oWord:Caption := "Test Caption"
  oWord:Visible := True

  oDoc := oWord:ActiveDocument

  oWord:Selection:InsertFile("D:\DOS.docx")

  oDoc:Save()
  oDoc:close()

  oWord:Quit()
  oWord:destroy()


RETURN self


"Domingo Serrano" escribió en el mensaje de 
noticias:17ffa7f3$3f3769c8$205b89@news.alaska-software.com...

Hola,
Necesito una cosa muy sencilla:
Pegar, al final de un documento Word, el contenido de otro documento Word.
He grabado macros, pero no sé como traducirlo a ActiveX en Xbase++.

Gracias por anticipado.
Domingo Serrano.
Domingo SerranoRe: ActiveX - Word - Copy Paste
on Sun, 25 Dec 2016 23:22:42 +0100
César,
Cuando utilizo tu propuesta, se genera un documento don el único contenido de
DOS.docx. Se pierde el de UNO.docx.
Así pues, para añadir DOS.docx a UNO.docx, estoy utilizando:
- Creación de TRES.docx
- ... bla bla bla ...
- oWord:Selection:InsertFile("D:\UNO.docx")
- oWord:Selection:InsertFile("D:\DOS.docx")
Así, genero TRES.docx con el contenido de ambos.
Pero, como dices, "no es lo suyo".

Muchas gracias por tu ayuda, y Feliz Navidad.
Domingo.


César Calvo <ccalvoc@telefonica.net> wrote in message
news:2e3384d0$2026a36c$2ff8@news.alaska-software.com...
>He probado con lo que visualizo pero no se porque no inserta el documento 
>dos en el uno, es como si hiciera copiar y pegar.
>Puede que hay que ver la manera de seleccionar el final del documento uno y 
>luego hacer lo que te pongo.
>Investiga a ver si lo consigues.
>Un saludo.
>César.
>
>PROCEDURE InsertDocument()
>LOCAL oWord,oDoc, cFile
>
>   Create a Word ActiveX component
>  oWord := CreateObject("Word.Application")
>  IF Empty( oWord )
>    MsgBox( "Microsoft Word is not installed" )
>  ENDIF
>
>  oWord:visible := .T.
>
>  cFile := "D:\UNO.docx"
>
>  oWord:documents:open( cFile )
>  oWord:Caption := "Test Caption"
>  oWord:Visible := True
>
>  oDoc := oWord:ActiveDocument
>
>  oWord:Selection:InsertFile("D:\DOS.docx")
>
>  oDoc:Save()
>  oDoc:close()
>
>  oWord:Quit()
>  oWord:destroy()
>
>
>RETURN self
>
>
>"Domingo Serrano" escribió en el mensaje de 
>noticias:17ffa7f3$3f3769c8$205b89@news.alaska-software.com...
>
>Hola,
>Necesito una cosa muy sencilla:
>Pegar, al final de un documento Word, el contenido de otro documento Word.
>He grabado macros, pero no sé como traducirlo a ActiveX en Xbase++.
>
>Gracias por anticipado.
>Domingo Serrano.