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.

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.

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.

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.

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.

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.